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ПРЕДИСЛОВИЕ 


Язык программирования Форт (англ. /огГ/г — 
вперед и одновременно сокращение от /оигік — четвер¬ 
тый), которому посвящена эта книга, появился в начале 
1970-х гг. в США. Его изобретатель Чарльз Мур пер¬ 
воначально применил его для разработки программного 
обеспечения микроЭВМ, управляющей работой радио¬ 
телескопа [27]. Преимущества работы с языком Форт 
вместо применявшегося ранее Ассемблера были на¬ 
столько велики, что вскоре он стал использоваться и на 
других специализированных ЭВМ. 

Быстрый рост популярности языка Форт начался 
с середины 1970-х гг., когда появились персональные 
ЭВМ. Оказалось, что этот язык позволяет обходиться 
сравнительно небольшим набором возможностей пер¬ 
вых персональных ЭВМ, превращая их в удобный и 
эффективный инструмент для самой разной работы. К 
середине 1980-х гг. Форт вы д винулся на третье место 
после языков Бейсик и Паскаль в качестве средства про¬ 
граммирования для персональных ЭВМ, и рост его при¬ 
менения продолжается [7, с. 54]. Широкое распростра¬ 
нение получили коммерческие программные продукты, 
написанные на Форте: системы обработки текстов, паке¬ 
ты машинной графики, трансляторы, видеоигры 
[24, 30]. Стихийно быстрое распространение Форта и 
его практический успех обусловили необходимость стан¬ 
дартизации языка. В 1983 г. был опубликован стандарт 
"Форт-83" [3, 23, 26], в соответствии с которым ведется 
изложение материала в этой книге. 

Едва появившись, Форт вызвал ожесточенные 
споры среди профессионалов-программистов, обсуж¬ 
давших, в частности, является ли Форт еще одним 
языком (если языком, то какого уровня — высокого или 
низкого), операционной системой, интерпретатором или 
компилятором. Одни считали Форт шагом вперед в раз- 
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витии программирования, другие — ошибочным выб¬ 
росом в сторону. К настоящему времени становится 
ясным, что Форт представляет собой самостоятельный 
унифицированный подход к разработке программного 
обеспечения, который действительно позволяет решать 
практические задачи — от небольших игровых прог¬ 
рамм до больших систем программного обеспечения, ра¬ 
ботающих в реальном времени [21; 7, с.56]. Унифика¬ 
ция состоит в том, что Форт предполагает последова¬ 
тельное и систематическое использование очень не¬ 
большого числа «правил». Например, «мостом» между 
аппаратурой и прикладной задачей служит всего 
один язык программирования (Форт), в то время как 
при традиционном подходе этот разрыв заполняется 
в несколько приемов разнородными инструменталь¬ 
ными средствами (ассемблер, универсальные языки 
выского уровня, проблемно-ориентированные языки, 
средства операционной системы). 

Система программирования на Форте (форт- 
система) обычно обеспечивает полный набор средств 
поддержки для разработки и исполнения программ: 
операционную систему, интерпретатор для диалогового 
исполнения, компилятор, ассемблер, текстовый редак¬ 
тор и обслуживающие программы. Все эти компоненты 
являются расширениями Форта и написаны на том же 
Форте. Таким образом, Форт является одновременно 
и системой для пользователя, и собственной метасис¬ 
темой, т. е. системой, описывающей саму себя (см. при¬ 
ложение 1). В соответствии с общим принципом Форта 
в форт-системе используется минимум правил и накла¬ 
дывается минимум ограничений, т. е. она обходится 
почти без синтаксиса, жестко контролируемых интер¬ 
фейсов для взаимодействия модулей, закрытых для 
пользователя областей памяти, имеет лишь незначи¬ 
тельный по объему встроенный контроль ошибок. Это 
обеспечивает максимум возможностей для програм¬ 
миста, включая возможность изменять, добавлять или 
удалять любую часть системы, позволяет расширять 
систему в заданном направлении и вместе с тем сохра¬ 
няет ее относительную независимость от аппаратуры. 

Разумеется, Форт имеет и свои недостатки. Мно¬ 
гие программисты считают, что форт-тексты трудно 
читаемы из-за применяемой в Форте обратной польской 
формы и различных неочевидных манипуляций со сте- 
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ком. В некоторых форт-системах отсутствуют средства 
для получения независимого программного продукта. 
Вызывает возражение отсутствие контроля типов при 
взаимодействии модулей и незащищенность форт-систе- 
мы от неправильных действий программиста. В то же 
время становится ясно, что методология Форта нахо¬ 
дится в общем русле поисков в области технологии 
программирования, хотя в настоящее время практиче¬ 
ски отсутствуют работы по методологическим и тех¬ 
нологическим аспектам его применения, сравнимые 
по значимости с исследованиями для традиционных 
языков [13, 14, 19]. 

В целом цикл разработки программного продукта ос¬ 
тается неизменным: анализ, проектирование, програм¬ 
мирование, отладка. Однако лишь на первых двух эта¬ 
пах применяется традиционная технология «сверху — 
вниз». Программирование и отладка ведутся по методу 
«снизу — вверх». Благодаря этому отпадает необходи¬ 
мость в модулях-заглушках и в повторных тестировани¬ 
ях всего комплекса программ при заменах заглушек на 
действительные модули, что сокращает время прохож¬ 
дения всего цикла и позволяет выполнить его несколько 
раз за то же время. При разработке форт-программ на¬ 
блюдается тенденция к вычленению относительно зам¬ 
кнутых групп модулей, каждая из которых проходит 
свой цикл разработки. При этом обычно размер модуля 
составляет от 1 до 3 строк текста, что резко контрасти¬ 
рует с традиционными языками. Для целей промышлен¬ 
ного производства программ сочетание методологии 
Форта с существующими [14] представляется весьма 
перспективным, однако практические разработки в этой 
области пока не известны. 

В нашей стране также шли поиски принципов, 
аналогичных тем, которые ныне определяют язык Форт, 
в большей степени исходя из теоретических основ про¬ 
граммирования [10]. Эти работы привели к созданию 
интересных систем ДССП [91, КОМФОРТ [12], систе¬ 
мы программирования на основе понятия «рабочей 
смеси» [5, 17] и других. Интерес к языку Форт возра¬ 
стал по мере получения сведений о нем и достижения 
собственных результатов в этой области [2,6, 18,20]. 
Усилиями энтузиастов созданы самостоятельные ре¬ 
ализации Форта, которые получают распространение 
наряду с заимствованными реализациями (см. при- 
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ложение 2). Язык Форт включается в программное 
обеспечение школьных компьютеров. Ведутся работы 
по аппаратной реализации этого языка [12]. В 1985 г. 
в рамках Рабочей группы по технологии программиро¬ 
вания микропроцессорной техники при Комиссии по 
технологии программирования при ГКНТ была создана 
целевая подгруппа по языку Форт и родственным сис¬ 
темам, задачей которой является обобщение и распро¬ 
странение опыта практического применения этих 
средств в различных областях. 

С 1978 г. в США выходит журнал "Форт Дименшнз" 
(ЮКТН Оітепзіопз) — основное периодическое из¬ 
дание для массовых пользователей языка Форт. 
С 1979 г. проводятся ежегодные конференции, мате¬ 
риалы которых, отражающие последние достиже¬ 
ния в развитии форт-подхода, публикуются в виде 
сборников. С 1983 г. издается журнал "Джорнал оф 
Форт Эпликейшн энд Рисёч" (ТИе ./оыгпаі о/ ЮКТН 
АррІісаГіоп апсі КезеагсИ, шифр ГПНТБ — Ѵ1467) — 
издание для программистов-профессионалов. Журналы 
«Байт» (ВУТЕ, шифр В1841) и «Д-р Доббз Джорнал» 
([)г. ОоЬЬ ’з .Іоигпаі, шифр \У9464) посвящают 
языку Форт специальные выпуски. 

До сих пор знакомству широких кругов програм¬ 
мистов нашей страны с этим языком препятствовало 
отсутствие сколько-нибудь обстоятельных публикаций 
о нем на русском языке. Данная книга является пер¬ 
вой такой публикацией и написана с целью дать подроб¬ 
ное и по возможности простое введение в язык Форт. 
Мы надеемся, что знакомство с интересными принци¬ 
пами этого языка позволит читателям по-новому 
взглянуть на свою программистскую практику и будет 
полезно во всех отношениях. 

Авторы выражают глубокую благодарность 
Г. С. Кудрявцевой, О. Н. Колесниковой и М. Б. Округину 
за помощь в подготовке рукописи. Отзывы о книге 
и предложения можно направлять по адресу: 191065, 
Ленинград, ул. Дзержинского, 10, ЛО издательства 
«Машиностроение». 



Глава 1 


ВВЕДЕНИЕ В ФОРТ 


1.1 Основные понятия 

Приступая к изучению нового для нас языка 
программирования, мы прежде всего задаемся вопро¬ 
сами: какие конструкции есть в этом языке (какова 
морфология), как они записываются (каков синтаксис) 
и что означают (какова семантика). Например, в широ¬ 
ко распространенном языке Паскаль имеется около 
двадцати конструкций (идентификатор, число без 
знака, присваивание, условный оператор и др.), син¬ 
таксис которых обычно задают с помощью граф-схем 
или порождающих правил, а семантику объясняют на 
основе той или иной машиннонезависимой модели вы¬ 
числений. Часть языка ассемблера любой ЭВМ, пред¬ 
назначенная для записи ма ш инных команд, содержит 
по одной конструкции на каждую команду. Запись такой 
конструкции обычно представляет отдельную строку 
и состоит из мнемонического обозначения команды 
и размещения операндов, а семантика определяется 
в терминах реальных действий, которые данная команда 
выполняет над ячейками памяти, регистрами и другими 
компонентами архитектуры ЭВМ. 

Язык Форт больше всего похож на язык ассем¬ 
блера. Его синтаксис также максимально прост. Запись 
каждой конструкции (команды) состоит из одного 
слова — мнемонического обозначения, в качестве кото¬ 
рого может выступать последовательность любых литер, 
не содержащая пробела. Простота синтаксиса является 
следствием того, что в качестве вычислительной модели 
используется стековая машина. Слова-команды этой 
машины снимают необходимые операнды со стека 
и оставляют свои результаты (если они есть) также 
на стеке. Таким образом, программа, написанная на 
языке Форт, выглядит как последовательность слов, 
каждое из которых подразумевает выполнение тех или 
иных действий. Слова разделяются любым числом про¬ 
белов и переходов на новую строку; ограничение накла- 
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дывается только на длину слова — оно должно содер¬ 
жать не более 31 литеры. Стандарт языка определяет 
сравнительно небольшой набор из 132 «обязательных» 
слов. Среди них есть слова, позволяющие определять 
новые через уже имеющиеся и тем самым расширять 
исходный набор слов-команд в нужном для данной 
задачи направлении. Некоторые часто требующиеся 
расширения включены в стандарт в качестве «стандарт¬ 
ных расширений» обязательного набора слов. 

Вычислительная модель, лежащая в основе язы¬ 
ка Форт, состоит из адресного пространства оператив¬ 
ной памяти объемом до 64 К байт, терминала и поля 
внешней памяти на магнитных дисках объемом до 32 К 
блоков по 1 К байт каждый. В пределах имеющегося 
адресного пространства располагаются стек данных 
и стек возвратов, словарь, буфер для ввода с терминала 
и буфера для обмена с внешней памятью. 

Стек данных обычно располагается в старших 
адресах оперативной памяти и используется для пере¬ 
дачи параметров и результатов между исполняемыми 
словами. Его элементами являются двухбайтные 
значения, которые в зависимости от ситуации могут 
рассматриваться различным образом: как целые числа 
со знаком в диапазоне от —32768 до +32767, как адре¬ 
са оперативной памяти в диапазоне от 0 до 65535 (отсю¬ 
да ограничение 64 К на размер адресного простран¬ 
ства), как коды литер (диапазон зависит от принятой 
кодировки) для обмена с терминалом, как номера 
блоков вне ш ней памяти в диапазоне от 0 до 32767 или 
просто как 16-разрядные двоичные значения. В процессе 
исполнения слов значения помещаются на стек и сни¬ 
маются с него. Переполнение и исчерпание стека, как 
правило, не проверяется; его максимальный объем 
устанавливается реализацией. Стандарт предусматри¬ 
вает, что стек растет в сторону убывания адресов; это 
согласуется с аппаратной реализацией стека в большин¬ 
стве ЭВМ, которые ее имеют. 

Стек возвратов по своей структуре аналогичен 
стеку данных, но используется особым образом некото¬ 
рыми стандартными словами (подробнее об этом см. 
в гл. 2). 

Начальную часть адресного пространства обычно 
занимает словарь (иначе «кодофайл») — хранилище 
слов и данных. По мере расширения исходного набора 
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слов словарь растет в сторону увеличения адресов. Спе¬ 
циальные слова из обязательного набора позволяют 
управлять вершиной словаря — поднимать и опус¬ 
кать ее. 

Наряду со стеком данных и стеком возвратов в 
старших адресах оперативной памяти обычно раз¬ 
мещается буфер на 64-100 байт для построчного ввода 
форт-текста с терминала и буферный пул для обмена 
с вне ш ней дисковой памятью размером от 1 до 3 и бо¬ 
лее К байт. Доступ к этим буферам и фактический обмен 
осуществляют специальные слова из обязательного 
набора. 

1.2. Работа в диалоговом режиме 

Программирование на языке Форт является 
существенно диалоговым. Работая за терминалом, 
программист вводит слова-команды, а загруженная 
в память ЭВМ форт-система, т. е. реализация языка 
Форт на данной ЭВМ, немедленно выполняет обознача¬ 
емые этими словами действия. О своей готовности к об¬ 
работке очередной строки текста форт-система обычно 
сообщает программисту специальным приглашением 
(например, знаком < , который печатается на терми¬ 
нале). Получив такое приглашение, программист наби¬ 
рает на терминале очередную порцию форт-текста, 
заканчивая ее специальным управляющим символом 
(например, нажимая клавишу "Ввод" или «Перевод 
строки»). Получив сигнал о завершении ввода, форт- 
система начинает обработку введенного текста (он раз¬ 
мещается в буфере для ввода с терминала), выделяя 
в нем слова-команды и исполняя их. Успе ш но обработав 
весь введенный текст, форт-система вновь приглашает 
программиста к вводу, и описанный цикл диалога пов¬ 
торяется. Многие форт-системы после успешного завер¬ 
шения обработки выводят на терминал подтверждаю¬ 
щее сообщение (обычно ОК — сокращение от англий¬ 
ского о'кау — все в порядке). Если во время обработки 
введенного текста выявляется какая-либо о ш ибка 
(например, встретилось неизвестное форт-системе 
слово), то на терминал выводится поясняющее со¬ 
общение, обработка введенного текста прекращается 
и форт-система приглашает программиста к вводу 
нового текста. 
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Для завершения работы обычно предусматриваются 
специальные слова-команды. 

Непосредственно вводить с терминала большие 
форт-тексты неудобно, поэтому их хранят во внешней 
памяти на дисках, а с терминала программист вводит 
только слова-команды, отсылающие форт-систему 
к обработке тех или иных блоков из внешней памяти. 
Для создания и исправления форт-текстов во внешней 
памяти используется текстовый редактор, который явля¬ 
ется специализированным расширением форт-системы. 


1.3. Стек данных и вычисления 

Как уже говорилось, в основе вычислительной 
модели для языка Форт лежит стековая машина. Ее 
команды (слова в языке Форт) обычно используют 
в качестве своих операндов верхние элементы стека, 
убирая их со стека и возвращая результаты (если они 
есть) на место операндов. Как правило, слова исполь¬ 
зуют одно-два верхних значения на стеке. Для их опи¬ 
сания будем применять следующую диаграмму: 


»и«__ ■•рікяі стік! Іо —> в■|»иы* стікл посла 


слои исполненіи слои 


исполненіи слоаа 


При этом считаем, что самое верхнее значение в стеке 
(последнее добавленное) находится справа. 

Для работы с собственно вершиной стека имеют¬ 
ся следующие слова: 

вир а ---> А,А 

вяор А —> 

ОѴЕЯ А,В -> А,В,А 

ЙОТ А,В,С > В,С,А 

ВИАР А,В —> В,А 

Слово ОЕІР (от ОЕ1РЕІСАТЕ — дублировать) дубли¬ 
рует вершину стека, добавляя в стек еще одно значение, 
равное тому, которое было до этого верхним. Слово 
ОКОР (сбросить) убирает верхнее значение. Слово 
ОѴЕК (через) дублирует значение, лежащее на стеке 
непосредственно под верхним. Слово КОТ (от КОТА- 
ТЕ — вращать) циклически переставляет по часовой 
стрелке три верхних значения в стеке. Наконец, слово 
$\УАР (обменять) меняет местами два верхних зна¬ 
чения. 
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Можно работать с любым элементом стека с по¬ 
мощью слов 

РІСК Ап,Ап-1.Ао,п -> Ап,Ап-І,...Ао,Ап 

РОИ. Ап,Ал-І | ...Ао,п ---> Ап-1,,.,Ао,Ап 

Слово РІСК (взять) дублирует п -й элемент стека 
(считая от нуля), так что О РІСК равносильно БІІР, 
а 1 РІСК равносильно ОѴЕК. Слово КОЬЬ (повер¬ 
нуть) циклически переставляет я верхних элементов 
стека (тоже считая от нуля) по часовой стрелке, так 
что 2 КОЬЬ равносильно КОТ, 1 КОІХ равносильно 
$\УАР, а О КОІХ является пустой операцией. 

Чтобы «увидеть» верхнее значение на стеке, ис¬ 
пользуется слово . (точка) А -*• 5 которое снимает 
значение с вершины стека и печатает его на терминале 
как целое число в свободном формате (т. е. без ведущих 
нулей и со знаком минус, если число отрицательно). 
Вслед за последней цифрой числа слово-точка выводит 
один пробел, чтобы выводимые подряд числа не слива¬ 
лись в спло ш ной ряд цифр. Если программист хочет, 
чтобы напечатанное значение осталось на стеке, он 
должен исполнить текст БЕХ .. Слово ББР создаст 
копию верхнего значения, а точка ее распечатает и 
уберет со стека. 

Перечисленные вы ш е слова работают со значе¬ 
ниями, уже находящимися в стеке. А как занести зна¬ 
чение в стек? Язык Форт имеет следующее замечатель¬ 
ное правило умолчания: если введенное слово форт- 
системе не известно, то прежде чем сообщать програм¬ 
мисту об ошибке, форт-система пытается понять это 
слово как запись числа. Если слово состоит из одних 
цифр с возможным начальным знаком минус, то ошиб¬ 
ки нет: слово считается известным и его действие 
состоит в том, что данное число кладется на вер¬ 
шину стека. 

Теперь у нас достаточно средств, чтобы привести 
примеры диалога. Рассмотрим следующий протокол 
работы: 


>347 

ОК 

> 8ИАР . . . 

4 7 3 ОК 

> 
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В ответ на приглашение к вводу (знак > , печатаемый 
системой) программист вводит три числа: 5, 6 и 7. 
Обрабатывая введенный текст, форт-система кладет эти 
числа в указанном порядке на стек и по завершении 
обработки выводит подтверждающее сообщение ОК 
и вновь приглашает программиста к вводу. Далее про¬ 
граммист вводит текст из четырех слов: 5\ѴАР и три 
точки. Исполняя эти слова-команды, форт-система ме¬ 
няет местами два верхних элемента стека (5, б, !-*■ 
5, 7, 6,) и затем поочередно три раза снимает верхнее 
значение со стека и печатает его. В результате на тер¬ 
минале появляется текст 6 7 5 и сообщение ОК, указы¬ 
вающее на завершение обработки, после чего система 
вновь выдает программисту приглашение на ввод. 

Для внешнего представления чисел используется 
система счисления, задаваемая программистом. Стан¬ 
дарт языка предусматривает следующие слова для 
переключения в наиболее общеупотребительные сис¬ 
темы: 


ВЕСІИАІ > десятична* 

НЕ Ж ---> ■•стиавцатнрнчиаа 

ОСТ АЬ > ■осьисрачии 

Первоначально устанавливается десятичная система. 
Если в процессе работы будет исполнено, например, 
слово НЕХ (от НЕХАОЕСІМАЬ — шестнадцатирич¬ 
ная), то при дальнейшем вводе и выводе чисел будет 
использоваться шестнадцатиричная система с цифрами 
от 0 до 9 и от А до Е до тех пор, пока основание системы 
счисления не будет вновь изменено. Внутренним же 
представлением чисел является обычный двоичный 
дополнительный код, применяемый в большинстве 
существующих ЭВМ. 

Слова-команды, выполняющие арифметические 
операции над числами, являются общепринятыми ма¬ 
тематическими обозначениями: 


♦ 

А,В 

-> 

сумма А+В 


- 

А,В 

— п> 

ровность А-В 


• 

А,І 

---> 


В 

/ 

А,В 

-> 

частно* от А/В 


нов 

А,В 

-> 

остатон от А/В 


/ИОВ 

А,В 

-> 

остаток от А/В, 

частно* от А/В 

АВЗ 

А 

-> 


чяна А 
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ИЕ5АТЕ 

А 

—-> 

іхачвккі с 

оір* 


А 

- > 

А+1 


1- 

А 

— > 

А-1 


2+ 

А 

---> 

А*2 


2- 

А 

- > 

А-2 


2/ 

А 

-> 

ЧІСТИО» от 

АУ2 


При сложении, вычитании и умножении не учитывается 
возможность переполнения, в случае его возникновения 
используются младшие 16 разрядов результата. Такая 
арифметика называется арифметикой по модулю 65536 
(2 в степени 16); ее основное достоинство состоит в том, 
что она дает одинаковые в двоичном представлении 
результаты независимо от того, как понимаются опе¬ 
ранды: как числа со знаком в диапазоне от —32768 
до +32767 или как числа без знака в диапазоне от О 
до 65535. 

Операции деления / , МОО и /МОО рассматри¬ 
вают свои операнды как числа со знаком. Из нескольких 
известных математических определений деления с ос¬ 
татком (которые по-разному трактуют случаи, когда 
операнды имеют разные знаки или оба отрицательны) 
язык Форт использует так называемое деление с нижней 
границей: остаток имеет знак делителя или равен 
нулю, а частное округляется до его арифметической 
нижней границы («пола») [11]. Во многих ЭВМ, имею¬ 
щих аппаратную реализацию деления, применяются 
другие правила для определения частного и остатка, 
однако это обычно не вызывает трудностей при прог¬ 
раммировании, поскольку самый важный случай с 
неотрицательными операндами все определения трак¬ 
туют одинаково. 

При выполнении деления возможно возникновение 
ошибочной ситуации, если делитель — нуль или 
частное не умещается в 16 разрядов (переполнение, 
возникающее при делении —32768 на —1). 

Одноместные операции АВ8 и NЕОАТЕ игнорируют 
переполнение, возникающее в том единственном слу¬ 
чае, когда операндом является число —32768, воз¬ 
вращая в качестве результата 0. 

Наконец, одноместные операции 1+ , 1- ,2+ , 
2- выполняют действие, отраженное в их мнемонике: 
увеличение или уменьшение значения на вершине стека 
на 1 или 2; аналогично слово 2/ возвращает частное 
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от деления своего параметра на 2. Эти слова включены 
в стандарт ввиду частного использования соответ¬ 
ствующих действий. 

Использование стека для хранения промежуточ¬ 
ных значений естественным образом приводит к так 
называемой "обратной польской форме" — одному из 
способов бесскобочной записи арифметических выра¬ 
жений, подразумевающему постановку знака операции 
после операндов. Например, выражение (А/В + С) * 
(Б*Е — Р*(С — Н)) записывается следующим образом: 
АВ/С + Е)Е*ЕСН — * — *. Очевидно, что этот 
текст выполним для Форта, если А, Вит. д - слова, 
которые кладут на стек по одному числу. Таким обра¬ 
зом, форт-систему можно использовать как калькуля¬ 
тор. Чтобы вычислить, например, значение (25 + 18 + 
+ 32) * 5, достаточно ввести такой текст: 25 18 + 
+ 32 + 5 *.. В ответ система напечатает (исполняя 
точку) ответ —375. 

Чтобы повысить точность вычислений в последо¬ 
вательности умножение — деление, стандарт предус¬ 
матривает два необычных слова: 

• / А,В,С » ч»сч 40 » оі (А*В/С> 

• /ИОВ А, В, С ---> остаток, частно* от (А*В/С) 

Особенность этих слов состоит в том, что промежуточ¬ 
ный результат А* В вычисляется с двойной точностью 
и в качестве делимого для С используются все его 32 
разряда. Окончательные же результаты являются 
16-разрядными числами. 

Наряду с описанной выше 16-разрядной арифме¬ 
тикой, язык Форт имеет полный набор средств для 
работы с 32-разрядными целыми числами через стан¬ 
дартное расширение двойной точности. Внутренним 
представлением таких чисел является 32-разрядный 
двоичный дополнительный код, представляющий их как 
числа со знаком в диапазоне от —2147483648 до 
+ 2147483647 или как числа без знака в диапазоне 
от 0 до 4294967295. При размещении в стеке число 
двойной точности занимает два элемента: верхний — 
старшая половина, предыдущий — младшая. Такое рас¬ 
положение делает простым переход от двойной точности 
к обычной через слово БКОР . Расширение двойных 
чисел включает следующие слова: 
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2ВК0Р 

АА —> 



2СЫР 

АА —> 

АА 

, АА 

20ѴЕЯ 

АА,ВВ — 

-) 

АА,ВВ,АА 

2Й0Т 

АА,В В,СС 

-> ВВ,СС , АА 

26КАР 

АА,ВВ — 

-> 

ВВ, АА 

В. 

АА-> 



В* 

АА,БВ " 

-> 

сумма АА+ВВ 

в- 

АА,ВВ — 

-> 

раакость АА-6В 

ВАВЗ 

АА ---> 


ВЫЕ6АТЕ 

АА-> 

число с обратный 


Здесь обозначение типа АА подчеркивает, что значение 
занимает два элемента стека. Хотя стандартное рас¬ 
ширение этого не предусматривает, во многих реализа¬ 
циях языка Форт этот ряд продолжают операции 
умножения и деления: 


Ва 

АА , ВВ-> 

произведение АА*ВВ 

В/ 

АА, ВВ-> 

частно* от АА/ВВ 

внов 

АА , ВВ-> 

остаток от АА/ВВ 


Операндами и результатами перечисленных слов 
являются значения двойной длины, занимающие по два 
элемента стека каждый; это обстоятельство отражено 
в мнемонике, начинающейся с цифры 2, когда два 
элемента стека выступают как одно целое, или с буквы 
О (от слова ОСШВЬЕ — двойной), когда речь идет 
об арифметическом значении двойной длины. 

Следующие два слова являются переходными меж¬ 
ду арифметическими операциями одинарной и 
двойной точности; их мнемоника включает букву М 
(от слова МІХ — смесь) и И (от слова ЕЩ8ЮЕШВ — 
беззнаковый): 

ЦК* А,В-> СС 

ии/ноо АА, в — > с,в 

Слово IIМ* перемножает операнды А и В как 16-раз- 
рядные числа без знака, возвращая все 32 разряда по¬ 
лучившегося произведения. Слово ІІМ/МСШ рассмат¬ 
ривает 32-разрядное делимое АА и 16-разрядный 
делитель В как числа без знака и возвращает получаю¬ 
щиеся 16-разрядные остаток С и частное Б. Если де¬ 
литель — нуль или частное превышает 65535, то это 
рассматривается как ошибка. Для перехода к двойной 
точности с учетом знака многие реализации имеют слово 
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5> О А АЛ, которое расширяет исходное число А 
до числа двойной точности распространением знакового 
разряда. 

Чтобы при вводе различать числа двойной и оди¬ 
нарной точности, в сформулированное выше правило 
умолчания внесена оговорка: если не найденное в сло¬ 
варе слово состоит только из цифр с возможным началь¬ 
ным знаком минус, то это число одинарной точности, 
а если в слово входят точки (в любом месте), то это 
число двойной длины. Пример использования форт- 
системы как калькулятора для работы с числами двой¬ 
ной длины представляет следующий протокол работы: 

> 1234567. 7654321. О* 0. 

8888888 0К 

В ответ на приглашение (знак > ) программист вводит 
два числа двойной длины, операцию сложения этих 
чисел и операцию печати результата. Выполняя ука¬ 
занные действия, форт-система печатает ответ (заметь¬ 
те, что он уже не содержит точки) и подтверждающее 
сообщение ОК. 

1.4. Введение новых слов 

Замечательное свойство языка Форт — это воз¬ 
можность вводить в него новые слова, расширяя тем 
самым набор его команд в нужном программисту 
направлении. Для введения новых слов чаще всего 
используется определение через двоеточие — опреде¬ 
ление нового слова через уже известные. Такое опре¬ 
деление начинается словом : (двоеточие) и заканчи¬ 
вается словом ; (точка с запятой). Сразу после двоето¬ 
чия идет определяемое слово, а за ним — последова¬ 
тельность слов, через которые оно определяется. Напри¬ 
мер, текст : 82 ОСТР * 8\ѴАР ОТІР * + ; определяет 
слово 82 , вычисляющее сумму квадратов двух чисел, 
снимаемых с вершины стека 82 А,В —► А**2 + В**2 . 
После ввода данного описания слово 82 можно испол¬ 
нять и включать в описания других слов. При создании 
таких определений рекомендуется тщательно коммен¬ 
тировать все изменения стека. Слово ( (открывающая 
круглая скобка) отмечает начало комментария; все 
следующие литеры до первой ) (закрывающей скобки) 
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считаются комментарием и при обработке вводимого 
форт-текста пропускаются. 

Перепишем приведенное выше определение сло¬ 
ва 82, показывая состояние вершины стека после 
исполнения каждой строки: 

82 ( А,В —> А»*2+В**2 сунн» к»а8рато»> 

вир ( А,В,В) 

* 8ЫАР < В«*2,А> 

01 ІР • < 8**2,А**2) 

♦ < А*»2+В«*2> 


По-видимому, минимальным требованием к до- 
кументированности определения следует считать за¬ 
дание начального и конечного состояний вершины 
стека при работе слова. 

Рассмотрим подробнее работу форт-системы во вре¬ 
мя определения новых слов. Мы уже знаем, что получив 
от программиста очередную порцию входного текста, 
форт-система выделяет в ней отдельные слова и ищет их 
в своем словаре. Эту работу выполняет текстовый ин¬ 
терпретатор форт-системы. Если слово в словаре не най¬ 
дено, то текстовый интерпретатор пытается понять его 
как число, используя описанное выше правило умолча¬ 
ния. Если слово найдено или оказалось записью числа, 
то дальнейшие действия интерпретатора зависят от его 
текущего состояния. В каждый момент времени тексто¬ 
вый интерпретатор находится в одном из двух состоя¬ 
ний: в состоянии исполнения или в состоянии компиля¬ 
ции. В состоянии исполнения найденное слово исполня¬ 
ется (т. е. выполняется действие, составляющее его 
семантику), а число кладется на стек. Если же интерпре¬ 
татор находится в состоянии компиляции, то найденное 
слово не исполняется, а компилируется, т. е. включается 
в создаваемую последовательность действий для опре¬ 
деляемого в данный момент слова. Найденное и скомпи¬ 
лированное таким образом слово будет исполнено 
наряду с другими такими словами во время исполнения 
определенного через них слова. Если требуется скомпи¬ 
лировать число, то текстовый интерпретатор компили¬ 
рует особый литеральный код, который во время 
исполнения положит значение данного числа на стек. 

Проследим за работой текстового интерпретатора 
по обработке уже рассмотренного определения слова 
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: 82 ЭИР * 8\УАР ЭІІР * + ; . Предположим, что 
перед началом обработки введенной строки интер¬ 
претатор находится в состоянии исполнения. Первым 
словом является: (двоеточие), которое исполняется. 
Его семантика состоит в том, что из входной строки 
выбирается очередное слово и запоминается в качестве 
определяемого, а интерпретатор переключается в сос¬ 
тояние компиляции. Следующие слова, которые интер¬ 
претатор будет извлекать из входной строки ( О ИР , * , 
8\ѴАР и т. д.), будут компилироваться, а не исполнять¬ 
ся, так как интерпретатор находится в состоянии ком¬ 
пиляции. В результате с определяемым словом 82 
связывается последовательность действий, отвечающая 
этим словам. Процесс выделения и компиляции слов 
будет продолжаться до тех пор, пока не встретится ; 
(точка с запятой). Это слово особенное, оно имеет так 
называемый «признак немедленного исполнения». 
Слова с таким признаком исполняются независимо от 
текущего состояния текстового интерпретатора, поэ¬ 
тому точка с запятой будет вторым исполненным словом 
после двоеточия. Семантика точки с запятой заключает¬ 
ся в том, что построение определения, начатого двое¬ 
точием, завершается и интерпретатор вновь переключа¬ 
ется в состояние исполнения. Поэтому после ввода 
определения слова 82 мы тут же можем проверить, 
как оно работает на конкретных значениях: 

> 5 4 62 . 

41 ОК 

Слова с признаком немедленного исполнения (другим 
примером такого слова помимо точки с запятой является 
открывающая круглая скобка — начало комментария) 
выполняются по-разному в зависимости от состояния 
текстового интерпретатора. Некоторые из них даже 
используются только в одном из этих состояний. Поэто¬ 
му на диаграмме для таких слов будем отмечать эти 
случаи, специально указывая состояние компиляции 

< ---> 

— > С и оипмпац ма) 


Слово ( в обоих состояниях действует одинаково: 
пропускает все следующие вводимые литеры до закры¬ 
вающей круглой скобки включительно или до конца 
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введенной строки, если закрывающая скобка отсут¬ 
ствует. 

Слово ; допустимо применять только в состоянии 
компиляции: ; -*■ (компиляция). Оно завершает постро¬ 
ение нового определения и переключает текстовый ин¬ 
терпретатор в состояние исполнения. 

Слово ІММЕБІАТЕ (немедленный) -»■ устанавлива¬ 
ет признак немедленного исполнения для последнего 
определенного слова. (Подробнее использование этого 
признака рассматривается в п. Е7.) 

Введенные слова можно исключить из словаря с по¬ 
мощью слова ГОК.ОЕТ (забыть) , которое выбирает 
из входной строки следующее слово и исключает его из 
словаря вместе со всеми словами, определенными 
позже. 

Разберем следующий протокол диалога: 

> 22 *. 

4 ОК 

> і г і і 
ок 

> 22 *. 

* ОК 

> ГОЙОЕТ 2 
ОК 

>22*. 

4 ОК 

Сначала программист вычисляет произведение от ум¬ 
ножения 2 на 2 и получает ответ 4. Введя затем опре¬ 
деление слова 2 как числа 3, он в дальнейшем получает 
уже другой ответ. Исключив это определение слова 
2 через ЕОК.ОЕТ, он возвращается к прежней семан¬ 
тике слова 2. 

В процессе работы текстового интерпретатора про¬ 
граммист может переключать его из состояния ком¬ 
пиляции в состояние исполнения и обратно с помощью 
слов [ (открывающая квадратная скобка) -*• и ] (за¬ 
крывающая квадратная скобка) -► . Слово [ имеет 
признак немедленного исполнения и переключает интер¬ 
претатор в состояние исполнения, а слово ] переключает 
его в состояние компиляции. Обычно эти слова исполь¬ 
зуются внутри определения через двоеточие, чтобы 
вызвать исполнение слова или группы слов, не имеющих 
признака немедленного исполнения. Например, если 


19 



в тексте определения понадобилась константа РРОО 
(в шестнадцатиричной системе), а текущей исполь¬ 
зуемой системой является десятичная, то было бы не¬ 
правильно включить в текст определения фрагмент НЕХ 
РРОО ОЕСІМАЬ, поскольку слово НЕХ будет не вы¬ 
полнено, а скомпилировано и число не будет воспринято 
правильно. Вместо этого следует писать: [ НЕХ 1 
РРОО [ ОЕСІМАЕ ] . В языке есть и другие способы, 
чтобы выразить это же более точно и красиво. 

Еще один пример дает использование слова ЕІТЕ¬ 
КАЕ (литерал), имеющего признак немедленного ис¬ 
полнения, внутри определения через двоеточие. Оно 
используется в виде: [ (значение) ] ЕІТЕКАЕ, где 
(значение) — слова, вычисляющие на вершине стека 
значение, которое словом ЕІТЕКАЕ будет скомпилиро¬ 
вано в код как число. Во время исполнения определения 
это значение будет положено на стек. Таким образом, 
текст [22*] ЕІТЕКАЕ внутри определения через 
двоеточие эквивалентен употреблению слова-числа 4. 
Это дает большие возможности для использования 
констант, «вычисляемых» во время компиляции опре¬ 
деления. Аналогичное соответствие имеет место и вне 
определения через двоеточие, поскольку в состоянии 
исполнения слово ЕІТЕКАЕ не выполняет никаких 
действий, и поэтому на стеке остается вычисленное 
перед этим значение. 

1.5. Константы и переменные, работа с памятью 

Программисту часто бывает удобно работать 
не с «анонимными» значениями, а с именованными. По 
аналогии со средствами других языков эти средства 
языка Форт называются константами и переменными. 
Впоследствии мы увидим, что они являются не «изна¬ 
чальными», а (наряду с определениями через двоето¬ 
чие) частными случаями более общего понятия «опре¬ 
деляющие слова». 

Слово ССЖ8ТА1ЧТ (константа) А —► работает сле¬ 
дующим образом. Со стека снимается верхнее значе¬ 
ние, а из входного текста выбирается очередное слово 
и запоминается в словаре как новая команда. Ее дей¬ 
ствие состоит в следующем: поместить на стек значе¬ 
ние А, снятое со стека в момент ее определения. На¬ 
пример, 4 ССЖ8ТА1ЧТ ХОР . В дальнейшем при испол- 
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нении слова ХОР число 4 будет положено на стек. 

Слово ѴАКІАВЬЕ (переменная) А -> резервирует 
в словаре два байта, а из входного потока шлоирает 
очередное слово и вносит его в словарь как новую ко¬ 
манду, которая кладет на стек адрес зарезервирован¬ 
ной двухбайтной области. Можно сказать, что пере¬ 
менная работает, как константа, значением которой 
является адрес зарезервированной двухбайтной об¬ 
ласти. 

Работа с переменной помимо получения ее адреса 
состоит в получении ее текущего значения и присваи¬ 
вании нового. Для этого язык Форт имеет следующие 
слова: 


• й — > і 

! В, А —> 

Слово @ (читается «разыменовать») снимает со стека 
значение и, рассматривая его как адрес области опе¬ 
ративной памяти, кладет на стек двухбайтное зна¬ 
чение, находящееся по этому адресу. Обратное дей¬ 
ствие выполняет слово ! (восклицательный знак, чи¬ 
тается «присвоить»), которое снимает со стека два 
значения и, рассматривая верхнее как адрес области 
оперативной памяти, засылает по нему второе снятое 
значение. Эти слова можно использовать не только для 
переменных, но и для любых адресов оперативной па¬ 
мяти. Следующий протокол работы показывает поря¬ 
док использования переменной в сочетании с этими 
словами: 


> ѴАКІАВІ.Е XII! 
ок 

> і а . 

1 ок 

> X • ИЕВЙТЕ X ! X • . 

-1 ОК 

В первой строке определяется переменная X, и ей при¬ 
сваивается начальное значение 1. Затем текущее зна¬ 
чение переменной X распечатывается. После этого те¬ 
кущее значение меняется на противоположное по знаку 
и вновь распечатывается. 

Полезным вариантом слова ! является слово +! 
(плюс-присвоить) N А —, которое увеличивает на N 
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значение, находящееся в памяти по адресу А. Несмотря 
на то, что это-слово легко выразить через + и ! : 

і ( N. А —> I оир • ВОТ ♦ 6ИАР ! , 

оно включено в обязательный набор слов. 

Слова, определенные через ССЖ8ТААГГ и ѴАКІ- 
АВЬЕ ,— такие же равноправные слова форт-системы, 
как и определенные через двоеточие. Их также можно 
использовать в определениях других слов и исключать 
из словаря словом ЕОКСЕТ. 

Для работы со значениями двойной длины имеются 
слова 


2С0НЗТАМТ АА ---> 

2ѴААІАВІ.Е ' —> 

21 А > ВВ 

2! ВВ,А > 

из стандартного расширения двойных чисел. При раз¬ 
мещении в памяти такие значения рассматриваются 
как пары смежных двухбайтных значений одинарной 
длины: сперва (в меньших адресах) располагается 
старшая половина, затем (в больших адресах) млад¬ 
шая. Адресом значения двойной длины считается адрес 
его старшей половины. 

Константы и переменные позволяют программисту 
использовать память в словаре вполне определенным 
образом. А как быть, если требуется что-то иное? Об¬ 
щий принцип языка Форт состоит в том, чтобы не за¬ 
крывать от программиста даже самые элементарные 
единицы, из которых строятся его более сложные сло¬ 
ва, а предоставлять их наравне с другими словами. 
Элементарными словами для работы с памятью в сло¬ 
варе, помимо приведенных выше @ и ! , являются сле¬ 
дующие: 

НЕВЕ -> А 

АИ.0Т А —> 

, А-> 

Предполагается, что словарь занимает некоторую на¬ 
чальную часть адресного форт-пространства и у него 
имеется указатель текущей вершины (словарь растет 
в сторону увеличения адресов). Слово НЕКЕ (здесь) 
возвращает текущее значение указателя (адрес первого 
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свободного байта, следующего за последним занятым 
байтом словаря). 

Слово АЬЬОТ (распределить) резервирует в сло¬ 
варе область памяти, размер которой (в байтах) сни¬ 
мает со стека. Резервирование состоит в том, что теку¬ 
щее значение указателя изменяется на заданную ве¬ 
личину, поэтому при положительном значении запроса 
память отводится вплотную от вершины словаря, а при 
отрицательном значении запроса происходит освобо¬ 
ждение соответствующего участка памяти. Наконец, 
слово , (запятая) выполняет так называемую «компи¬ 
ляцию» значения, снимаемого со стека: значение пе¬ 
реносится на вершину словаря, после чего указатель 
вершины продвигается на 2 (размер в байтах скомпи¬ 
лированного значения). Некоторые из приведенных 
слов легко выражаются через другие: 

і , < А > ) НЕКЕ • 2 АЫ.0Т | 

і 21 I А > ВВ) ОЦР 2 ♦ • ЗНАР • I 

Такая избыточность позволяет программисту быстрее 
находить нужные ему решения и делает программы 
более удобочитаемыми. 

А как создать в словаре поименованную область 
памяти? Можно завести область и связать ее адрес 
с именем через описание константы: ПЕКЕ 10 АЬЬОТ 
СОМ8ТА1ЧТ Х10 . Слово НЕКЕ оставляет на стеке ад¬ 
рес текущей вершины словаря, затем при исполнении 
текста 10 АЕЕОТ от этой вершины резервируется 
10 байт, после чего слово С(Ж8ТА1ЧТ связывает адрес 
зарезервированной области с именем Х10. В дальней¬ 
шем при исполнении слова Х10 этот адрес будет по¬ 
ложен на стек. 

Другой возможный путь состоит в использовании 
слова СКЕАТЕ (создать) -► в таком контексте: СКЕА- 
ТЕ XI0 10 АЕЕОТ . Слово СКЕАТЕ, подобно слову 
ѴАКІАВЕЕ , выбирает из входной строки очередное 
слово и определяет его как новую команду с таким 
действием: положить на стек адрес вершины словаря 
на момент создания этого слова. Поскольку следующие 
действия в приведенном примере резервируют память, 
то слово Х10 будет класть на стек адрес зарезервиро¬ 
ванной области. Очевидно, что слово ѴАКІАВЕЕ мож¬ 
но выразить через СКЕАТЕ 
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I ѴАКІАВІ.Е ( -> ) СЯЕАТЕ 2 АІЛОТ | 


или иначе (если мы хотим инициализировать нулем 
значение создаваемой переменной): 

I ѴАЯІАВІЕ ( —> ) СЯЕАТЕ 0 , | 

(Другой аспект использования слова СКЕАТЕ рас¬ 
сматривается в п. 1.10). 

В стандарте определен ряд системных переменных, 
к которым программист может свободно обращаться, 
в том числе 5ТАТЕ (состояние) а и ВА8Е (осно¬ 
вание) “*■ А . Исполнение каждого из этих слов за¬ 
ключается в том, что на стеке оставляется адрес ячей¬ 
ки, в которой хранится значение данной переменной. 

Переменная 8ТАТЕ представляет текущее состоя¬ 
ние текстового интерпретатора: нуль для исполнения 
и не нуль (обычно —1) для компиляции. Поэтому вся 
реализация слов [ и ] , переключающих интерпретатор 
из одного состояния в другое, сводится к одному при¬ 
сваиванию: 


I 1 ( —> ) 0 ВТАТЕ ! I ІННЕВІАТЕ 

і 3 ( -> I -1 ВТАТЕ ! | 

Переменная ВА8Е хранит текущее основание си¬ 
стемы счисления для ввода — вывода чисел, поэтому 
реализация слов для установки стандартных систем 
выглядит так: 

I ВЕС1НА1. < > ) 10 ВА8Е ! | 

I ИЕХ < ---> ) 16 ВА8Е ! | 

Отсюда следует более изящный способ кратковремен¬ 
ной смены системы счисления во время компиляции 
определения: [ ВА8Е @ НЕХ [ РЕ00 [ ВА8Е ! ] . Сна¬ 
чала на стеке запоминается текущее основание, и си¬ 
стема счисления переключается на основание 16, в ко¬ 
тором и воспринимается следующее число РР00, после 
чего восстанавливается прежнее основание. А как уз¬ 
нать текущее основание системы счисления? Испол¬ 
нение текста ВА8Е @ не поможет, поскольку ответом 
всегда будет 10 (почему?). Правильный ответ даст 
исполнение текста ВА8Е @ ОЕСІМАЬ . , в результате 
чего значение основания будет напечатано как число 
в десятичной системе. Еще более правильным было бы 
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использовать текст ВА8Е @ ОЫР ИЕСІМАЬ . ВА8Е 
!, который после печати основания в десятичной систе¬ 
ме восстанавливает его прежнее значение. 

1.6. Логические операции 

В языке Форт имеется только один тип значе¬ 
ний — 16-разрядные двоичные числа, которые, как мы 
видели, рассматриваются в зависимости от ситуации 
как целые числа со знаком или как адреса и т. д. Точно 
так же подходят и к проблеме представления логиче¬ 
ских значений ИСТИНА и ЛОЖЬ: число 0, в двоичном 
представлении которого все разряды нули, представ¬ 
ляет значение ЛОЖЬ, а любое другое 16-разрядное 
значение понимается как ИСТИНА. Вместе с тем стан¬ 
дартные слова, которые должны возвращать в каче- 
тве результата логическое значение, из всех возмож¬ 
ных представлений значения ИСТИНА используют 
только одно: число — 1 (или, что то же самое, 65535), 
в двоичном представлении которого все разряды еди¬ 
ницы. Такое соглашение связано с тем, что традицион¬ 
ные логические операции конъюнкции, дизъюнкции 
и отрицания выполняются в Форте поразрядно над 
всеми шестнадцатью разрядами операндов: 


АНО 

А,В —> 

А 

В 

логическое 

и 

ОН 

А,В —> 

А 

В 

логическое 

или 

ЮН 

А , В-> 

А 

В 


или 

НОТ 

А ---> 


А 

логическое 

НЕ 


Как и в предыдущих случаях, эти операции не явля¬ 
ются независимыми: операция отрицания (пораз¬ 
рядное инвертирование) легко выражается через 
исключающее ИЛИ (поразрядное сложение по мо¬ 
дулю два): 

і НОТ (А —> Л А ) -I КОН | 

Нетрудно увидеть, что для принятого в Форте стан¬ 
дартного представления значений ИСТИНА и ЛОЖЬ 
все эти слова работают, как обычные логические 
операции. 

Логические значения возникают в операциях срав¬ 
нения, которые входят в обязательный набор слов и име¬ 
ют общепринятую программистскую мнемонику: 
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< А,В- > А < В м*иьаі 

» А,В -> А » В р*вно 

> А|В -> А > В боны! 

Эти операции снимают со стека два врехних значения, 
сравнивают их как числа со знаком (операция «равно» 
выполняет поразрядное сравнение) и возвращают ре¬ 
зультат сравнения как значение ИСТИНА и ЛОЖЬ 
в описанном выше стандартном представлении. Из-за 
стремления к минимизации обязательного набора опе¬ 
раций в него не включены слова для операций сме¬ 
шанного сравнения, поскольку их легко выразить через 
уже имеющиеся: 


1 <■ 

< А,В — > 

А 

<• 

В 

) 

ВЫДР < 

НОТ 

1 

• >■ 

С А, В-> 

А 

>« 

В 

) 

8ИАР > 

НОТ 

1 

1 о 

( А,В-> 

А 

О 

в 

) 

■ ИОТ | 




Для сравнения 16-разрядных чисел без знака имеется 
слово И< —А < В . Эта операция обычно ис¬ 
пользуется для сравнения адресов, которые лежат 
в диапазоне от 0 до 65535. Буква И (от 1ЛЧ8ЮКЕО — 
беззнаковый) в ее мнемонике говорит о том, что опе¬ 
ранды рассматриваются как числа без знака. 

Ввиду частого использования и возможности не¬ 
посредственной реализации на многих существующих 
ЭВМ в обязательный набор слов включены одномест¬ 
ные операции сравнения с нулем: 

0< А > А < О 

О» А > А ■ О 

0> А — > А > О 

При этом слово 0= можно использовать вместо КОТ 
как операцию логического отрицания, и в отличие от 
КОТ оно будет правильно работать при любых пред¬ 
ставлениях логического значения ИСТИНА. 

Описанные выше двухместные операции сравнения 
естественным образом выражаются через сравнения 
с нулем: 


1 < 

( А,В-> А 

< 

В ) 

- 0< 

1 

1 ■ 

( А,В -"> А 

• 

В ) 

- 0» 

1 

1 > 

( А,В — > А 

> 

В ) 

- 0> 

1 
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Стандартное расширение двойных чисел имеет 
аналогичные слова для сравнения 32-разрядных зна- 


по* 

АА 

-> АА 

* 0 


п< 

АА, 

, ВВ 

-> 

АА < 

ВВ 

п* 

АА, 

, ВВ 

— > 

АА • 

ВВ 

01К 

АА, 

,8В 

—> 

АА < 

ВВ 


Слова 0< и ЭСК различаются тем, что первое рас¬ 
сматривает свои операнды как числа со знаком, а вто¬ 
рое — как числа без знака. Для слов О 0 = и Э= такое 
различие несущественно, их, например, можно опре¬ 
делить так: 

і ПО* < АА —> АА » О I ОК О* | 

I о* ( АА,ВВ > АА « ВВ I В- 00» | 

Слово ОК (логическое ИЛИ) в определении слова 
00= логически складывает старшую и младшие поло¬ 
вины исходного 32-разрядного значения. Нулевой ре¬ 
зультат будет получен тогда и только тогда, когда 
исходное значение было нулевым. Следующее слово 
0= преобразует этот результат к логическому значению 
в стандартном представлении. Исполнение слова [)= 
состоит в вычислении разности его операндов в срав¬ 
нении этой разности с нулем. 

1.7. Структуры управления 

Во всех приводившихся выше определениях слов 
тело определения записывалось как последователь¬ 
ность уже известных слов-команд; семантика опреде¬ 
ляемого таким образом слова состоит в последователь¬ 
ном выполнении слов-команд тела. Помимо после¬ 
довательного исполнения традиционными приемами 
в программировании стали ветвление (выбор между 
разными последовательностями действий) и цикл (мно¬ 
гократное повторение одной последовательности дей¬ 
ствий). 

В языке Форт тоже имеются условные операторы 
и циклы, реализованные с помощью специальных слов- 
команд, которые легко выражаются через другие, более 
элементарные слова (см. гл. 2). Это открывает путь 
к реализации таких вариантов структур управления, 
которые больше всего подходят для данной задачи, 
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что дает программисту широкие возможности для соз¬ 
дания новых структур управления. 

Стандарт языка предусматривает ряд слов для 
построения условных операторов и циклов в некотором 
конкретном виде. Эти слова используются внутри опре¬ 
делений через двоеточие и разделяют тело определения 
на отрезки. Действия, соответствующие словам из этих 
отрезков, выполняются, не выполняются или выполня¬ 
ются многократно в зависимости от условий, проверя¬ 
емых во время выполнения данного определения. Ус¬ 
ловные операторы и циклы могут свободно вклады¬ 
ваться друг в друга. 

Условный оператор строится с помощью слов: 


-л 

1 

1 

1 

V 

(исполнение) 

Е1.3Е —> 


ТНЕИ -> 

(испоя и*ниаI 


Внутри определения через двоеточие отрезок текста 
ІР (часть-то) ЕЬ8Е (часть-иначе) ТНЕИ задает сле¬ 
дующую последовательность действий. Слово ІР (если) 
снимает значение с вершины стека и рассматривает 
его как логическое. Если это ИСТИНА (любое нулевое 
значение), то выполняется часть «то» — слова, нахо¬ 
дящиеся между ІР и ЕЬ8Е , а если ЛОЖЬ (равно 
нулю), то исполняется часть «иначе» — слова между 
ЕЬ8Е и ТНЕМ . Сами слова ЕЬ8Е (иначе) и ТНЕN (то) 
играют роль ограничителей для слова ІР и самостоя¬ 
тельной семантики не имеют. Часть «иначе» вместе со 
словом ЕЬ8Е может отсутствовать, и тогда условный 
оператор имеет сокращенную форму ІР (часть-то) 
ТНЕК . Если логическое значение, снимаемое со стека 
словом ІР, ИСТИНА, то выполняются слова, состав¬ 
ляющие часть «то», а если ЛОЖЬ, то данный оператор 
не выполняет никаких действий. Обратите внимание, 
что условие для слова ІР вычисляется предшествую¬ 
щими словами. 

Для примера рассмотрим определение слова АВ8, 
вычисляющего абсолютное значение числа: 

і АР5 ( А->авс А) сир 0< ІР ИЕВАТЕ ТНЕН | 

Слово ИІІР дублирует исходное значение, следующее 
слово 0< проверяет его знак, заменяя копию на ло¬ 
гическое значение — результат проверки. Слово ІР 
снимает со стека этот результат, и если это ИСТИНА, 
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то лежащее на стеке исходное отрицательное значение 
словом МЕОАТЕ заменяется на противоположное. 

Еще пример: стандартное слово 7БІІР дублирует 
верхнее значение, если это не ноль, и оставляет стек 
в исходном состоянии, если на вершине ноль: 

і ?оир ( а —> а,а/о ) пир іР вцр тнеы і 

В спецификации данного слова косая черта разделяет 
два варианта результата, который это слово может 
оставить на стеке. Примером использования полного 
условного оператора может служить определение слова 
8 > Б , расширяющего исходное значение до зна¬ 
чения двойной длины распространением знакового 
разряда: 


I 8>0 (А —-> АА ) 

пир 0< ІР -I ЕІБЕ О Т НЕМ | 

Это слово добавляет в стек — 1 , если число на вершине 
стека отрицательно, или 0 в противном случае. Таким 
образом, выполняется распространение знакового раз¬ 
ряда на старшую половину значения двойной точности. 

В стандарт языка Форт включены циклы с условием 
и циклы со счетчиком. Циклы первой группы образу¬ 
ются с помощью слов 


ВЕ6ІМ 

— > 

(ИСПОЛ Ні ни*) 

ІМТІІ. 

А —> 

(ясішкиемяс) 

ИННЕ 

А-> 

(исполнение) 

РЕРЕАТ 

- > 



и имеют две формы: 

ВЕ6 X N <т«о> ІШІІ. 

ВЕ61М <т«ло-1> МИНЕ <т*ло-2> РЕРЕАТ 

В обоих случаях цикл начинается словом ВЕОШ (на¬ 
чать), которое служит открывающей скобкой, отме¬ 
чающей начало цикла, и во время счета не выполняет 
никаких действий. 

Цикл ВЕОШ— ІШТІЕ называется циклом с провер¬ 
кой в конце. После исполнения слов, составляющих 
его тело, на стеке остается логическое значение — усло¬ 
вие завершения цикла. Слово ІШТІЕ (пока не) снимает 
это значение со стека и анализирует его. Если это ИСТИ¬ 
НА (не нуль), то исполнение цикла завершается, т. е. 
далее будут исполняться слова, следующие за 1ШТШ, 
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а если это ЛОЖЬ (нуль), то управление возвращается 
к началу цикла от слова ВЕОШ . Например, опреде¬ 
ление слова, вычисляющего факториал, может выгля¬ 
деть так: 


I ФАКТОРИАЛ ( N - —> N! 

пи? 2 < ір скор і 

ЕІІЕ 

вир 

ВЕѲІМ 

I- 

ЗИАР ОѴЕВ 
• 8ИАР 

пир і ■ 

инти 

ОКОР ТНЕН I 


ВЫЧИСЛЕНИЕ N РАКТОРИАЛ 
1 ЕСЛИ N<2, ТО Н’*Г 

Н ИНАЧЕ 

5,К 3»Н,К«М 

5,К 

8,К' К*К-1 

К’,8,К' 

в',К' 6•«в»к• 

8',К',К'*| 

8,1 8 ' «И! 

Н! 


Как и ранее, в комментариях, сопровождающих каж¬ 
дую строчку текста, мы указываем значения, которые 
остаются на вершине стека после ее исполнения. Такое 
документирование облегчает понимание программы 
и помогает при ее отладке. 

Цикл с проверкой в начале ВЕОШ — \ѴНІЕЕ — 
КЕРЕАТ используется, когда в дикле есть действия, 
которые не надо выполнять в заключительной итерации. 
Исполнение слов, составляющих его тело-1, оставляет 
на стеке логическое значение — условие продолжения 
цикла. Слово \ѴНІЬЕ (пока) снимает это значение со 
стека и анализирует его. Если это ИСТИНА (не нуль), 
то исполняются слова, составляющие тело-2 данного 
цикла до ограничивающего слова КЕРЕАТ (повто¬ 
рять), после чего вновь исполняется тело-1 от слова 
ВЕСШ. Если же значение условия ЛОЖЬ (нуль), 
то исполнение данного цикла завершается и начинают 
выполняться слова, следующие за КЕРЕАТ . Заметьте, 
что в отличие от цикла ВЕСШ-ІШТІЬ, значение ИС¬ 
ТИНА соответствует продолжению цикла. Для примера 
рассмотрим программу вычисления наибольшего об¬ 
щего делителя по алгоритму Евклида: 

НОД < А,В ---> Сі НАИБОЛЬЭИИ ОБВИВ ДЕЛИТЕЛЬ) 


20ЫР < 

ІР БИАР ТНЕН 

< ТЕПЕРЬ А>*8 

ВЕѲІМ 

ОЦР 

( А,8,8 ) 

Инне 


( ПОКА В НЕ НОЛЬ 


20УР НОД 

( А,В, Сі ОСТАТОК 
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кот 

СКОР 

КЕРЕАТ СКОР | 


< 

( 

< 


В,С,А ) 

А',В' А =В,В'-С) 
НО!) 


Для организации циклов с целочисленной пере¬ 
менной — счетчиком цикла — используются слова 


оо а, в —> 
юор —> 

♦1.00Р А-> 

I > А 

1 > А 

І.ЕАѴЕ —> 


(исволтни*) 
(исоопніина) 
(мсполиінаі ) 
(мсголманиа) 
(«с по лманна ) 

(ИСПОДНІЙ»») 


Такие циклы записываются в одной из следующих двух 
форм: ОО <тело> ЬООР или 00<тело> +ЬООР . 
В обоих случаях цикл начинается словом ОО (делать), 
которое снимает со стека два значения: начальное (на 
вершине стека) и конечное (второе сверху) — и запо¬ 
минает их. Текущее значение счетчика полагается рав¬ 
ным начальному значению, после чего исполняются 
слова, составляющие тело цикла. Слово ЬООР увели¬ 
чивает текущее значение счетчика на единицу и про¬ 
веряет условие завершения цикла. В отличие от него, 
слово + ЬООР прибавляет к текущему значению счет¬ 
чика значение шага, которое вычисляется на стеке те¬ 
лом цикла и рассматривается как число со знаком. 
В обоих случаях условием завершения цикла является 
пересечение границы между А—1 и А при переходе от 
прежнего значения счетчика к новому (направление 
перехода определяется знаком шага), где А — конеч¬ 
ное значение, снятое со стека словом ОО. 

Если пересечения не произошло, то тело цикла 
исполняется вновь с новым значением счетчика в ка¬ 
честве текущего. 

Такое определение позволяет рассматривать исход¬ 
ные параметры цикла (начальное и конечное значения) 
и как числа со знаком, и как числа без знака (адреса). 
Например, текст 10 О ОО (тело) ЬООР предписывает 
выполнять тело цикла 10 раз со значениями счетчика 
0, 1,2, ..., 9, а в случае 0 10 ОО (тело) ЬООР тело цик¬ 
ла будет исполнено 65 526 раз со значением счетчика 
10, 11, ..., 32 767, -32 768, - 32 767, ..., - 1 или (что 
то же самое) со значениями счетчика 10, 11, ..., 65 535. 
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В то же время цикл 0 10 □() (тело) — 1 + ЬООР будет 
исполняться 11 раз (а не 10) со значениями счетчика 
10, 9, 0, поскольку пересечение границы между —1 

и 0 произойдет при переходе от значения счетчика 0 
к следующему значению — 1. Цикл 10 0 ЦО (тело) — 1 
+ ЬООР будет исполняться 65 527 раз со значениями 
счетчика 0, —1, —2, —32 768, 32 767, .... 10 или 

(что то же самое) 0, 65 535, 65 534.10. 

Таким образом, цикл со счетчиком всегда выполняется 
хотя бы один раз. Некоторые реализации предусмат¬ 
ривают слово ?ЦО , которое не исполняет тело цикла 
ни разу, если начальное и граничное значения оказа¬ 
лись одинаковыми. 

Внутри тела цикла слово I кладет на стек текущее 
значение счетчика. Например, следующее определение 
вычисляет сумму квадратов первых п натуральных 
чисел: 


і 892 ( N —> 5:СУММА КВАДРАТОВ ОТ 1 00 N1 

0 ЗИАР ( 0,Ш ЗСОТ-О > 

1* 1 ( 510],Н*1,1 ) 

00 I ( ВС 1-11,1 > 

ИЦР • ♦ < ВС11 ІСП-Ш-ШШ) 

ІООР | ( ВСЮ ) 


Слово ЬЕАѴЕ (уйти), употребленное внутри цикла, 
вызывает прекращение исполнения его тела; управ¬ 
ление переходит к словам следующим за словом ЬООР 
или + ЬООР . 

В программировании часто применяется конструк¬ 
ция цикл в цикле. Чтобы во внутреннем цикле получить 
текущее значение счетчика объемлющего цикла, ис¬ 
пользуется слово 1: БО ... I ... ЭО ... I ... і ... ЬООР ... I 
... ЬООР . Первое вхождение слова I дает текущее зна¬ 
чение счетчика внешнего цикла. Следующее вхожде¬ 
ние I дает уже значение счетчика внутреннего цикла. 
Чтобы получить счетчик внешнего цикла, надо исполь¬ 
зовать слово Ь 

По выходе из внутреннего цикла доступ к этому 
значению вновь дает слово I. Этим слова I и I отли¬ 
чаются от переменных цикла в традиционных языках 
программирования. Некоторые реализации преду¬ 
сматривают еще и слово К для досступа к счетчику 
третьего объемлющего цикла. 
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1.8. Литеры и строки, форматный вывод чисел 

В современном программировании важное место 
занимает обработка текстовых данных. С каждой ли¬ 
терой, которую можно ввести с внешнего устройства 
или вывести на него, связывается некоторое число — 
код этой литеры, так что в памяти ЭВМ литеры пред¬ 
ставлены своими кодами. Стандарт языка Форт преду¬ 
сматривает использование таблицы кодов А8СІІ, в ко¬ 
торой задействованы все числа в диапазоне от 0 до 127. 
Каждый код занимает один 8-разрядный байт, в ко¬ 
тором для представления литеры используются млад¬ 
шие 7 разрядов. 

Такая привязка к одной конкретной кодировке не 
является существенным препятствием к использованию 
других, если сохраняется условие, что код литеры за¬ 
нимает один байт. В применяемых в нашей стране форт- 
системах помимо А8СІІ применяются коды КОИ-7, 
КОИ-8, ДКОИ и другие. 

Для доступа к однобайтным значениям, располо¬ 
женным в памяти, используются слова С@ А —► р 
и С! В,А —*■ ; которые аналогичны словам @ и ! . Пре¬ 
фикс С (от слова СНАКАСТЕК — литера) говорит 
о том, что эти слова работают с литерными кодами (од¬ 
нобайтными значениями). 

Слово С@ возвращает содержимое байта по адресу 
А, дополняя его до 16-разрядного значения нулевыми 
разрядами. Обратное действие выполняет слово С! , 
которое засылает младшие 8 разрядов значения В 

в память по адресу А. 

Для политерного обмена с терминалом стандарт 
предусматривает такие слова: 

КЕѴ — > А 

Ей IТ А-> 

СВ -> 

ТУРЕ А,М-> 

ЕХРЕСТ А,М-> 

Слово КЕѴ (клавиша) возвращает в младших раз¬ 
рядах значения А — код очередной литеры, введенной 
с терминала. В отличие от слова С@ старшие разряды 
зависят от реализации и могут быть ненулевыми. Об¬ 
ратное действие выполняет слово ЕМІТ (испустить), 
которое снимает значение со стека и, рассматривая его 
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младшие разряды как код литеры, выводит эту литеру 
на терминал. Специальное слово СК (сокращение от 
САК.К.ІАОЕ ЯЕТІЛШ — возврат каретки) выполняет 
перевод строки при выводе на терминал. 

Расположенные в памяти побайтно коды литер 
образуют строку, которую можно напечатать на терми¬ 
нале словом ТУРЕ (напечатать). Это слово снимает со 
стека число — количество литер (оно должно быть 
неотрицательно) и адрес начала строки (ее первого 
байта): 

I туре і а, и —> > ?вцр 1Р о оо 

оир I * С« ЕИІТ ЮОР ТНЕИ 0Я0Р ; 

Если число литер равно нулю, то ничего не печатается. 

Обратное действие — ввод строки литер — вы¬ 
полняет слово ЕХРЕСТ (ожидать), которое снимает 
со стека длину и адрес области памяти для размещения 
вводимых литер. Коды литер, последовательно вводи¬ 
мых с терминала, помещаются в указанную область 
до тех пор, пока не будет введено заданное число литер 
или не будет введена управляющая литера «возврат 
каретки» (код этой литеры в память не заносится). 
Фактическое число введенных литер сообщается в 
стандартной переменной 8 РАК (размер), эти литеры 
к тому же отображаются на терминале. 

Ввиду его особой важности для кодирования про¬ 
бела выделена специальная константа ВЕ (от 
ВЙАКК — пробел), которую для кода А8СІІ можно 
задать так: 32 ССЖ8ТА1ЧТ ВЕ. При исполнении слова 
ВЕ на стеке остается код пробела. Чтобы вывести 
пробел на терминал, имеются следующие стандартные 
слова: 


і БРАСЕ ( — > ) ВІ. ЕИІТ I 

і ЗРАСЕВ ( И--» ?сир ІР О 00 5РАСЕ ЮОР ТНЕИ | 

Слово 8РАСЕ (пробел) выводит на терминал один 
пробел, а слово 8РАСЕ8 (пробелы) — несколько, 
снимая их количество со стека (это значение, как и 
длина строки в слове ТУРЕ, должно быть неотрица¬ 
тельным). 

Внутри определений через двоеточие можно ис¬ 
пользовать явно заданные тексты для вывода их на 
терминал. При исполнении слова ." (точка и кавычка), 
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употребленного в контексте текст ", следующие за 
ним литеры до закрывающей кавычки исключительно 
печатаются на терминале. Пробел, отделяющий сло¬ 
во в число печатаемых литер не входит. Другое 
слово .( (точка и скобка) отличается от ." тем, что 
ограничителем текста является закрывающая правая 
скобка, и это слово можно использовать как внутри 
определений, так и вне их. 

Помимо строки — поля байт, длина которого задает¬ 
ся отдельно — язык Форт использует строки со счет¬ 
чиком. Строка со счетчиком представляется полем байт, 
причем в первом байте записана длина строки. Стан¬ 
дарт не определяет форму представления счетчика 
длины, оставляя решение этого вопроса на усмотрение 
разработчиков конкретной реализации. Для перехода 
от строки со счетчиком к строке с явно заданной длиной 
имеется слово СО И КТ (счетчик) А -*■ В.К. которое 
преобразует адрес А строки со счетчиком в адрес В 
ее первой литеры (обычно это А+ 1) и значение счетчи¬ 
ка. Строки со счетчиком используются при вводе слов 
из входной строки. Стандартное слово \ѴОКО (слово) 
С-*- А снимает со стека код литеры-ограничителя и вы¬ 
деляет из входной строки подстроку, ограниченную 
этой литерой (начальные вхождения литеры-ограни¬ 
чителя пропускаются). Из выделенной подстроки фор¬ 
мируется строка со счетчиком, адрес которой воз¬ 
вращается в качестве результата. Слова-команды 
языка Форт вводятся исполнением текста ВЬ \ѴОКП), 
а текстовая строка в слове ." — исполнением текста 
(ЗІЮТЕ \УОІЮ , где слово 01ГОТЕ — константа, 
обозначающая код кавычки. Литеры введенной строки 
обычно располагаются вслед за вершиной словаря, 
т. е. в незащищенном месте, и поэтому их нужно как- 
то защитить, если предполагается их дальнейшее ис¬ 
пользование. ЕІекоторые реализации предусматривают 
слово" (кавычка), которое используется внутри опре¬ 
деления через двоеточие и во время его исполнения 
кладет на стек адрес следующей строки как строки 
со счетчиком. Это позволяет работать с явно заданными 
текстами. 

Чтобы программист мог задавать коды литер, не 
связывая себя конкретной кодировкой, во многие 
реализации введено слово С" , которое кладет на стек 
код первой литеры следующего слова и может исполь- 
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зоваться как внутри определения через двоеточие, так 
и вне его: 

і с* ( —> с ) ві. ново соинт окор 

С« ССОЙРІІЕ] ИТЕКАІ. I ІНИЕВІАТЕ 

Исполнение текста ВЬ \УОК[) СОЕЛЧТ [ЖОР С@ ос¬ 
тавляет на стеке код первой литеры следующего слова. 
Далее этот код нужно либо скомпилировать как число, 
либо оставить на стеке в зависимости от текущего 
состояния текстового интерпретатора. Для этого ис¬ 
пользуется уже известное нам слово ІЛТЕКАЬ . Однако 
включить его непосредственно в текст нельзя, так как 
это слово имеет признак немедленного исполнения и бу¬ 
дет исполняться во время компиляции данного опреде¬ 
ления. Чтобы скомпилировать слово с признаком не¬ 
медленного исполнения, используется слово [СОМРІ- 
ЬЕ] (от СОМРІЕЕ — компилировать) -► (компиля¬ 
ция), которое само имеет такой признак. Оно при¬ 
нудительным образом компилирует следующее за ним 
слово независимо от наличия у него признака немедлен¬ 
ного исполнения. Таким образом, ввод строки, ограни¬ 
ченной кавычкой, с помощью слова С” можно задать 
так: С" " \Ѵ(ЖО . Такой текст более нагляден, чем 
тот, в котором используется конкретный код или обо¬ 
значающая его константа. 

Важной областью применения строковых значений 
являются форматные преобразования, позволяющие 
переводить число из машинного двоичного представле¬ 
ния в строку литер. Эти преобразования выполняются 
над числами двойной длины, результирующая строка 
размещается во временном буфере РАЕ) (прокладка), 
который заполняется с конца. Такое название буфера 
связано с тем, что он располагается в незащищенной 
части адресного пространства между словарем и сте¬ 
ком. Слово РАБ кладет на стек адрес конца этого 
буфера и обычно определяется так: 

і РАО ( -> А ) НЕКЕ 100 ♦ | 

В данном случае предполагается, что размер буфера 
не будет превышать 100 байт. 

Собственно форматное преобразование начинается 
словом <# , которое устанавливает служебную пере¬ 

менную НЬЭ на конец буфера РАБ: 
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I <• (-> ) РАО НЮ ! | 


Занесение очередной литеры в буфер РАБ выполняет 
слово НОЬБ (сохранить): 

■ ною < с —> ) -1 НЮ 4! ню • С! | 

Преобразование числа выполняет слово # Б01 —► 
Т)Т)2, которое работает со значениями двойной длины. 
Параметр делится на текущее значение переменной 
ВАЗЕ (основание системы счисления) и заменяется на 
стеке получившимся частным, а остаток переводится в 
литеру соответствующую ему как цифра в данной си¬ 
стеме счисления, и через слово НОЬЭ эта литера добав¬ 
ляется в буфер РАБ. Полный перевод числа выполняет 
слово #8: 

I 13 <00 — >0,0) веѳхн * 2оир оо« ШИ | 

которое выделяет цифры числа последовательным 
делением, пока не получится нуль. Наконец, слово 
#> завершает форматное преобразование, воз¬ 
вращая адрес и длину получившейся текстовой строки: 

I »> (ВО ---> А,(О 2ВВ0Р НЮ I РАО ОѴЕЯ - | 

Для вывода знака «минус» имеется слово 8ІСМ (знак): 

I ЕІЗН < А-> ) 0< ІР С* - НОЮ ТНЕИ I 

которое добавляет в.буфер РАО знак «минус», если 
параметр на вершине стека (число одинарной точности) 
отрицателен. 

С помощью перечисленных средств легко определить 
стандартные слова О. и . для печати чисел и в свобод¬ 
ном (минимальном) формате: 

■ о. <во —> ) 


2оир 

0АВ5 

( ОО.ВОАВВ ) 

<• 

13 

( 00,0,0 ) 


ВОТ 

( 0-НЛ,0,0,0-СТ ) 


8ІѲН 

( 0-ИЛ, 0,0 | 

•> 


( 0-Н1, А ,И I 

ТУРЕ 

БРАСЕ 

0А0Р | 


і . ( N —> > в>о 0. | 

Слово Б. сначала переводит абсолютное значение ис¬ 
ходного числа в строку литер, потом добавляет к ней 
возможный знак «минус», анализируя для этого стар- 
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шую половину первоначального значения, и затем 
печатает получившуюся строку, выводя после нее еще 
один пробел. Слово . дополняет свой параметр до зна¬ 
чения двойной длины распространением знакового 
разряда и обращается к слову Б. для печати получив¬ 
шегося числа. Аналогичным образом реализуются 
стандартные слова Б.Я и .К , которые печатают число 
в поле заданного размера вплотную к его правому краю 
(отсюда в их мнемонике присутствует буква К от 
ЯІОНТ — правый), добавляя при необходимости на¬ 
чальные пробелы: 


0.К ( 

00і ЧИСЛО, Рі РАЗМЕР 

ПОЛЯ-> ) 

ОѴЕК 

25ИАР САВЕ 

< 0-СТ,Р,00,ССАВЕ) 

<• 

18 КОТ 6І0И •> 

( Р, А, N ) 

КОТ 

ОѴЕК - 

( А,И,Р-А ) 

СЦР 

0> ІР 8РАСЕ8 Е18Е 

СКОР ТНЕИ ТУРЕ | 

.К ( 

Мі ЧИСЛО,р!РАЗМЕР 

ПОЛЯ-> > 

БИАР 

8>0 С.К | 



В заключение рассмотрим программу шестнадцати¬ 
ричной распечатки областей памяти словом ОЕПѴ1Р 
(дамп), которое получает на стеке адрес области и ее 
длину: 


і виир ( А|АОРЕС, Мі ДЛИНА -> 

ОѴЕК В А5Е « НЕ X 23МАР 
+ РОГ -2 АТІО 
00 1 <• С" • НОЮ 
О 15 00 Ш I * 

С« БЕСОВЕ НОЮ -1 + Ю0Р 
С* • НОЮ 

0 14 00 ВІ НОЮ оир 1 4 
«0 I • 20Р0Р -2 +Ю0Р 

01 НОЮ ВО НОЮ О I I I М) 
СО ТУРЕ и +Ю0Р БАБЕ 


( А, В , А , N > 

( В , А + N, А) 

( В, А1 ) 

( В, АІ ,А1 +Л 
( В, АI ) 

( В, АІ ) 

( В.АІ.АІЫ) 
( В, АІ ) 

( е,Ат,нт) 

! I 


Внешний цикл с шагом 16 формирует и печатает тексто¬ 
вую строку. Первый внутренний цикл с шагом —1 за¬ 
сылает в буфер РАО литерные значения, соответствую¬ 
щие распечатываемым байтам. Здесь слово ЭЕСО- 
ОЕ С С/С1 заменяет код С на некоторый код С1 
(например, код литеры «точка»), если он не является 
кодом литеры, которую можно напечатать на данном 
терминале. Второй внутренний цикл с шагом —2 за¬ 
сылает в буфер четыре шестнадцатиричные цифры — 
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представления двухбайтных значений, разделяя их 
одним пробелом. Далее в буфере РАО (т. е. в начале 
строки) формируется адрес тоже в виде четырехзнач¬ 
ного числа. Перед началом работы устанавливается 
шестнадцатиричная система счисления, а в конце вос¬ 
станавливается первоначальная. Следующий протокол 
работы показывает результат исполнения слова БІЛѴІР 
в конкретном случае: 

> юмадк» 

Ш 03С0 ОЗЕС «ЗЕО «й ОМЗ 45» Ш 07РА С..І..5.....ТК.З* 

Ш 04С5 Ш ЕЗОО О» 0402 9160 «31 *780 4.0ІТ..ІІ.ЛІГ..ЦІ 

оме ми ш изо юо« 45» т нео «зо ш...з. ьліт.і * 

Обратите внимание, что адреса и значения байтов на¬ 
печатаны в шестнадцатиричной системе. Точки в литер¬ 
ном представлении байтов заменяют литеры, которые 
не могут быть напечатаны. 

1.9. Определяющие слова 

Конструкции языка Форт, которые мы рас¬ 
сматривали до сих пор, имеют аналоги в других извест¬ 
ных языках программирования. Например, определению 
через двоеточие очевидным образом соответствует 
описание процедуры в языках Фортран и Паскаль. 
Теперь мы рассмотрим свойство языка Форт, которое 
существенно отличает его от других и в значительной 
степени определяет его как нечто новое. 

Программируя какую-либо задачу, мы моделируем 
понятия, в которых эта задача формулируется и реша¬ 
ется, через понятия данного языка программирования. 
Традиционные языки имеют определенный набор по¬ 
нятий (процедуры, переменные, массивы, типы данных, 
исключительные ситуации и т.д.), с помо щ ью которых 
программист должен выразить решение исходной за¬ 
дачи. Этот набор выразительных средств фиксирован 
в каждом языке, но поскольку он содержит такие 
универсальные средства, как процедуры и типы дан¬ 
ных, то опытный программист может смоделировать 
любые необходимые ему понятия программирования. 

Язык Форт предлагает вместо фиксированного на¬ 
бора порождающих понятий единый механизм порожде¬ 
ния таких порожающих понятий. Таким образом, при¬ 
ступая к программированию задачи на языке Форт, 
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программист определяет необходимые ему понятия 
и с их помощью решает поставленную задачу. Такое 
прямое введение в язык нужных для данной задачи 
средств вместо их моделирования (часто весьма слож¬ 
ного) через имеющиеся универсальные средства умень¬ 
шает разрыв между постановкой задачи и ее програм¬ 
мной реализацией. Это упрощает понимание и отладку 
программы, так как в ней более наглядно проступают 
объекты и отношения исходной задачи, и вместе с тем 
повышает ее эффективность, так как вместо сложного 
моделирования понятий задачи через универсальные 
используется их непосредственная реализация через 
элементарные. 

Новые понятия вводятся посредством определения 
через двоеточие, в теле которого используются слова 

СЛЕЙТЕ —> 

С0Е5> -> <иоипил»ци«) 

—> А (пополнение) 

Рассмотрим уже известное нам слово СОЫ8ТАЫТ 
(константа), которое используется для определения 
констант. Его определение можно задать так: 

I ССЖ8ТАМТ ( N -> I СКЕЙТЕ , В0Е6> • | 

Часть определения от слова СКЕАТЕ до БОЕ8> на¬ 
зывается создающей (СКЕАТЕ — создать), остальная 
часть от слова БОЕ8> и до конца называется ис¬ 
полняющей (ООЕ8 — исполняет). В данном случае 
создающая часть состоит из одного слова , (запятая), 
а исполняющая часть — из слова @ (разыменование). 

Рассмотрим исполнение данного определения на 
примере 4 С(Ж8ТА1ЧТ ХОР. Слово 4 кладет число 4 на 
стек. Далее исполняется слово СОК8ТА1ЧТ. Слово 
СКЕАТЕ , с которого начинается его определение, вы¬ 
бирает из входной строки очередное слово (в данном 
случае ХОР) и добавляет его в словарь как новую ко¬ 
манду. Создающая часть, состоящая из слова «запя¬ 
тая», переносит число 4 в память, компилируя его на 
вершину словаря. Слово БОЕ8> , отмечающее конец 
создающей части, завершает исполнение данного опре¬ 
деления, при этом семантикой созданного слова ХОР 
будет последовательность действий исполняющей 
части, начиная от слова БОЕ8> . В дальнейшем 
исполнение слова ХОР начнется с того, что слово 
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□ С) Е 5 > положит на стек адрес вершины словаря, 
какой она была на момент начала работы создающей 
части, после чего будет работать исполняющая часть 
определения. Поскольку по данному адресу создающая 
часть скомпилировала число 4, то исполняющая 
часть — разыменование — заменит на стеке этот адрес 
его содержимым, т. е. числом 4, что и требуется по смы¬ 
слу данного понятия. 

Рассмотрим другой пример. Введем понятие вектора. 
При создании вектора будем указывать размер (число 
элементов), а при обращении к нему — индекс (номер) 
элемента, в результате чего получается адрес данного 
элемента. Этот адрес можно разыменовать и получить 
значение элемента или можно заслать по этому адресу 
новое значение. Если желательно контролировать пра¬ 
вильность индекса при обращении к вектору, то опре¬ 
деление может выглядеть так: 

І ВЕКТОР ( ШіРАЗИЕР ->) СКЕЙТЕ ОЦР , 2» АЫОТ 

ООЕ5> < 11ИНДЕКС,А- >А(І]|ЙАРЕС ЗЛ-ТА I) 

ОѴЕК 1- ОѴЕК в и< ( ПРОВЕРКА ИНДЕКСА) 

1Р 5МАР 2« ♦ ЕХІТ ТН ЕN 

.* ОШИБКА В ИНДЕКСЕ” АВОКТ ; 

Разберем, как работает данное определение при соз¬ 
дании вектора 10 вектор X. 

Создающая часть компилирует размер вектора 
и вслед за этим отводит память на 10*2, т. е. 20 байт. 
Таким образом, для вектора X в словаре отводится 
область размером 22 байта, в первых двух байтах 
которой хранится число 10 — размер вектора. При 
обращении к вектору X на стеке должно находиться 
значение индекса. Слово БОЕ8> кладет сверху адрес 
области, сформированной создающей частью, после 
чего работает исполняющая часть определения. Про¬ 
верив, что индекс I лежит в диапазоне от 1 до 10, она 
оставляет на стеке адрес, равный начальному адресу 
области плюс 1*2, т. е. адрес І-го элемента вектора, если 
считать, что элементы располагаются в зарезервирован¬ 
ной области подряд. Слово ЕХІТ (выход) завершает 
исполнение определения, что позволяет обойтись без 
части «иначе» в условном операторе. Если окажется, 
что индекс не положителен или больше числа элементов, 
то будет напечатано сообщение "ошибка в индексе" 
словом , и исполнение закончится через слово АВОКТ 
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(выброс). Если по каким-либо причинам контроль ин¬ 
дексов не нужен, можно дать более краткое опре¬ 
деление: 

і ВЕКТОР ( N1 РАЗМЕР —> ) СВЕЙТЕ 2 » А11.0Т 

00Е6> ( 1 1 ИНДЕКС, А > АПН АДРЕС ЭЛ-ТА 1) 

5НАР I- 2 * + | 

Если мы условимся считать индексы не от единицы, 
а то нуля, то исполняющая часть еще более сократится 
за счет исключения слова I — для уменьшения значения 
индекса на единицу. 

Таким образом, программист может реализовывать 
варианты понятий, наиболее подходящие для его за¬ 
дачи. Исходный небольшой набор слов-команд форт- 
системы он может избирательно наращивать в нужном 
направлении, постоянно совершенствуя свой инстру¬ 
ментарий. 

Используемый в языке Форт способ введения опре¬ 
деляющих слов связан с очень важным понятием — 
частичной параметризацией. Определяющее слово за¬ 
дает целый класс слов со сходным действием, которое 
описывается исполняющей частью определяющего сло¬ 
ва. Каждое отдельное слово из данного класса характе¬ 
ризуется результатом исполнения создающей части — 
тем или иным содержимым связанной с ним области 
памяти, адрес которой передается исполняющей части 
как параметр. Таким образом, исполняющая часть — 
то общее, что характеризует данный класс слов,— во 
время ее исполнения частично параметризуется резуль¬ 
татом исполнения создающей части для данного отдель¬ 
ного представителя этого класса. Как создающая часть, 
так и частично параметризованная исполняющая часть, 
могут требовать дополнительных параметров для своего 
исполнения (в примере для вектора это размер вектора 
и индекс). Все это представляет программисту практи¬ 
чески неограниченную свободу в создании новых по¬ 
нятий и удобных инструментальных средств. 



Глава 2. РЕАЛИЗАЦИЯ И РАСШИРЕНИЯ 


2Л. Шшый код и его разновидности 

Логически можно выделить два подхода к реали¬ 
зации языков программирования — трансляцию и ин¬ 
терпретацию [ІО]. Транслятор преобразует входной 
текст программы в машинный код данной ЭВМ; впослед¬ 
ствии этот код, объединяясь с другими машинными 
модулями, образует рабочую программу, которую 
можно загрузить в оперативную память и исполнить. 
Интерпретатор непосредственно исполняет программу 
на языке высокого уровня, рассматривая входной текст 
как последовательность кодов операций, управляющих 
его работой. Между этими полюсами располагается 
целый спектр промежуточных подходов, состоящих 
в предварительном преобразовании входного текста 
программы в некоторой промежуточный язык с по¬ 
следующей интерпретацией получившегося кода. Чем 
ближе промежуточный язык к машинному языку, тем 
ближе данный подход к классической трансляции, а чем 
ближе он к исходному языку программирования, тем 
ближе этот подход к интерпретации. 

Оптимальный вариант промежуточного языка дол¬ 
жен существенно отличаться от исходного языка про¬ 
граммирования и быть удобным для создания простых 
и надежных интерпретаторов. Примером одного из 
таких промежуточных языков является известный П- 
код, используемый во многих реализациях языка Па¬ 
скаль. Рассматриваемые нами варианты шитого кода 
образуют специальный класс представлений промежу¬ 
точных языков, особенно удобных для интерпретации 
[22, 25, 291. 

В общем случае промежуточный язык состоит из 
набора элементарных операций, средств управления 
локальной памятью для хранения и передачи данных 
и средств управления процессом вычисления. Однако 
если по своей сложности промежуточный язык при- 
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ближается к исходному машиннонезависимому языку 
программирования, то целесообразность его использо¬ 
вания снижается. Одним из приемов, направленных 
на упрощение набора команд промежуточного языка, 
является применение стековой архитектуры (или нулъ- 
адресных команд). В этом случае для работы с памятью 
требуется всего две операдии: перенести значение со 
стека в память и наоборот из памяти в стек. Кроме 
того, стековая архитектура естественным образом при¬ 
водит к стековому механизму передачи параметров, 
который таким образом становится общей частью всех 
реализаций данного промежуточного языка. 

Шитый код особенно удобен для реализации вирту¬ 
альных машин со стековой архитектурой: П-кода, Лиспа 
и, конечно, Форта. Вместе с тем в каждом случае следует 
различать качества реализации, которые обеспечи¬ 
ваются применением шитого кода, и качества, которые 
присущи самому языку. 

Известны четыре разновидности шитого кода: под¬ 
программная, косвенная и свернутая. Во всех четырех 
случаях операции промежуточного языка представ¬ 
ляются ссылками на подпрограммы, соответствующие 
этим операциям. Перечисленные разновидности раз¬ 
личаются способом представления этих ссылок и соот¬ 
ветственно интерпретатором такой последовательности. 
Подпрограммы, реализующие операции языка, раз¬ 
деляются на два класса: верхнего уровня, представлен¬ 
ные в том же шитом коде, и нижнего уровня, реализо¬ 
ванные непосредственно в машинном коде данной ЭВМ. 
Подпрограммы нижнего уровня взаимодействуют 
с интерпретатором шитого кода, используя выделенные 
ему машинные ресурсы. Вместе с тем конкретный вид 
этих ресурсов может быть самым разным для разных 
архитектур ЭВМ. 

Во всех разновидностях шитого кода его интерпре¬ 
татор должен обеспечивать выполнение трех действий, 
которые традиционно обозначаются так: 

ЫЕХТ (следующий) — переход к интерпретации 
следующей ссылки в данной последовательности ссы¬ 
лок; 

САІХ (вызов) — переход в подпрограмму верхнего 
уровня, представленную в шитом коде; 

К.ЕТІІШЧ (возврат) — возврат из подпрограммы 
верхнего уровня на продолжение интерпретации. 
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Рис. 2.1. Подпрограммный шитый код 

В силу его очевидной рекурсивное™ интерпретатор 
использует специальный стек в качестве собственной 
структуры данных. Этот стек называется стеком возвра¬ 
тов, чтобы отличать его от стека данных, обычно 
используемого операциями промежуточного языка. 
В качестве еще одной собственной структуры данных 
интерпретатора выступает указатель на текущее место 
в интерпретируемой последовательности ссылок, пред¬ 
ставляющих операции промежуточного языка. 

Из всех разновидностей шитого кода подпрограм¬ 
мный максимально эффективен по времени исполнения. 
Он удобен в том случае, когда архитектура данной 
ЭВМ включает аппаратные стеки, команду перехода 
на подпрограмму (перехода с возвратом), в которой 
адрес возврата запоминается на вершине стека, и 
команду возврата по адресу, находящемуся на вершине 
стека. Для ЭВМ СМ-4 и «Электроника-60» это команды 
.18 В и К8Т, для микропроцессора К580 — команды 
САЬЬ и КЕТ. 

Структура подпрограммного шитого кода приведена 
на рис. 2.1. Каждая ссылка на операцию промежуточ¬ 
ного языка представляется в виде машинной команды 
перехода на соответствующую подпрограмму. Стек 
возвратов используется для сохранения адреса воз¬ 
врата этими командами, а в качестве указателя теку¬ 
щего места в интерпретируемой последовательности 
ссылок выступает внутренний регистр счетчика адреса. 
Высокоуровневая подпрограмма на промежуточном 
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языке представляет собой последовательность таких 
же команд перехода с возвратом, которая заканчивает¬ 
ся командой возврата по адресу, снимаемому с вершины 
стека возвратов. Подпрограмма нижнего уровня долж¬ 
на заканчиваться такой же командой возврата для 
продолжения обработки. Таким образом, в подпро¬ 
граммном [п итом коде интерпретатор реализуется не¬ 
посредственным образом в структуре самого кода. 
Действие МЕХТ состоит в исполнении пары команд 
■І5К./К8Т, действие САЬЬ как таковое отсутствует, дей¬ 
ствие КЕТІІК1Ч состоит в команде К5Т. Подпрограммный 
ш итый код в отличие от всех остальных разновидностей 
допускает большую оптимизацию по времени счета за 
счет непосредственной вставки подпрограмм нижнего 
уровня в место их вызова. 

Прямой шитый код (рис.2.2.) уступает подпрограм¬ 
мному по скорости исполнения, но дает выигрыш по 
объему памяти, необходимой для его размещения. 
В качестве последовательности операций промежуточ¬ 
ного языка выступает последовательность адресов 
соответствую щ их подпрограмм. Ее можно рассматри¬ 
вать как последовательность вызовов подпрограммного 
шитого кода с удаленным кодом команды 25К (именно 
это и дает экономию объема памяти примерно на 
1/3 по сравнению с подпрограммным кодом). Поскольку 
код команды отсутствует, требуется специальный интер- 
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Рис. 2.2. Прямой шитый код 
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претатор последовательности ссылок. Подпрограммы 
верхнего уровня должны начинаться машинными 
командами, выполняющими действие САЛЬ (положить 
текущее значение указателя на стек возвратов, пере¬ 
вести указатель на начало последовательности адресов 
данной подпрограммы, исполнить N ЕХТ) и заканчи¬ 
ваться адресом подпрограммы КЕТІЛШ (снять значе¬ 
ние со стека возвратов и заслать его в указатель, испол¬ 
нить КЕХТ). Подпрограммы в машинном коде должны 
заканчиваться исполнением действия ІЧЕХТ (скопиро¬ 
вать адрес подпрограммы по текущему значению 
указателя в рабочую ячейку, перевести указатель на 
следующий элемент кода, передать управление по адре¬ 
су в рабочей ячейке). В тех случаях, когда архитектура 
ЭВМ позволяет выразить действия САЛЕ и КЕХТ 
одной-двумя машинными командами (например, для 
ЭВМ СМ-4), эти команды вставляются непосредственно 
в подпрограммы; если же требуется более длинная по¬ 
следовательность команд, то в подпрограммы встав¬ 
ляются команды перехода на соответствующие точки, 
которые выносятся в отдельное подпрограммное ядро. 

Косвенный шитый код уступает прямому по скорости 
исполнения, но имеет то преимущество, что его высоко¬ 
уровневые подпрограммы не зависят от машины, по¬ 
скольку не содержат машинных кодов. Как и в случае 
прямого кода, последовательность операций промежу¬ 
точного языка состоит из последовательности адресов 
подпрограмм, разница заключается в организации этих 
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подпрограмм и действиях интерпретатора (рис. 2.З.). 
Теперь чтобы передать управление на машинный код, 
в действии NЕXТ требуется выполнить еще одно разы¬ 
менование. Подпрограмма верхнего уровня начинается 
не машинными командами для действия САЬЬ, а ячей¬ 
кой, где записан адрес этой точки, и заканчивается 
ячейкой, где записан адрес ячейки с адресом точки 
КЕТЕ1К2Ч[. Подпрограмму на машинном языке пред¬ 
ставляет ячейка, где записан адрес начала соответ¬ 
ствующего кода. Завершающим действием такой 
подпрограммы, как и раньше, является исполнение 
действия КЕХТ. Для этого обычно используется без¬ 
условный переход на соответствующую точку интер¬ 
претатора. 

Наконец, свернутый шитый код, который может 
быть как прямым, так и косвенным, отличается тем, 
что вместо прямых адресов подпрограмм и кодов в нем 
используются их свертки, которые, вообще говоря, 
короче этих адресов. Таким путем за счет усложнения 
доступа к подпрограммам в действии ИЕХТ (через 
использование таблицы сверток или специальной 
функции, преобразующей свертку в соответствующий 
адрес) можно добиться экономии памяти или возмож¬ 
ности использовать больший диапазон адресов для- 
размещения кода. Пусть, например, архитектура ЭВМ 
требует, чтобы адреса подпрограмм и команд были 
четными. Тогда, используя в качестве свертки, пред¬ 
ставляющей такой адрес, его значение, деленное на 2, 
мы получаем возможность использовать вдвое большее 
адресное пространство. 

Таким образом, разновидности шитого кода пред¬ 
лагают широкий диапазон характеристик по скорости 
исполнения и требованиям к памяти. Поскольку все 
они логически эквивалентны, то выбор конкретного 
варианта определяется конкретными требованиями. 
В реализациях языка Форт встречаются все эти ва¬ 
рианты. 

2.2. Структура словарной статьи 

Каждое слово-команда, известное форт-системе, 
хранится в оперативной памяти (в словаре) в виде 
специальной структуры данных — словарной статьи, 
состоящей из поля имени, поля связи, поля кода и поля 
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параметров. Стандарт не фиксирует порядок взаимно¬ 
го расположения этих полей, оставляя его на усмотре¬ 
ние разработчиков реализации. Как правило, поля рас¬ 
полагаются подряд в том порядке, как они перечислены 
выше. 

Поля имени и связи вместе образуют заголовок 
словарной статьи, который нужен для поиска статьи 
по имени слова. Результатом поиска являются поля 
кода и параметров, которые вместе образуют собствен¬ 
но тело словарной статьи, определяющее действие, 
связанное с данным словом, т. е. его семантику. Соглас¬ 
но стандарту словарную статью представляет адрес 
ее поля кода, исходя из которого можно получить 
адреса всех других ее полей. Поскольку именно этот 
адрес компилируется в шитый код, то он также на¬ 
зывается адресом компиляции. 

Поле имени содержит имя слова в виде строки со 
счетчиком. Стандарт ограничивает максимальную дли¬ 
ну имени 31 литерой (5 двоичными разрядами), чтобы 
остающиеся разряды в байте счетчика можно было 
использовать под специальные признаки. Важнейший 
из них — признак немедленного исполнения, который 
обычно занимает старший разряд байта-счетчика. Та¬ 
ким образом, поле имени имеет переменную длину, 
которая определяется значением счетчика. 

Поле связи занимает 2 байта и содержит адрес 
заголовка предыдущей словарной статьи. Через это 
поле словарные статьи связаны в цепные списки, в ко¬ 
торых можно вести поиск статьи по имени слова. Поле 
связи первой статьи в списке содержит некоторое спе¬ 
циальное значение, обычно нуль. Новые слова до¬ 
бавляются в конец списка, и поиск слов ведется от 
конца списка к началу. 

Тело словарной статьи реализуется через шитый 
код в одной из его разновидностей. Для определен¬ 
ности примем за основу косвенный ш итый код. В этом 
случае интерпретатор шитого кода называется адрес¬ 
ным интерпретатором форт-системы, поскольку интер¬ 
претирует последовательность адресов, каждый из 
которых является адресом компиляции некоторой сло¬ 
варной статьи (адресом ее поля кода). В качестве 
собственных данных адресный интерпретатор исполь¬ 
зует стек возвратов и указатель на текущее место 
в интерпретируемой последовательности адресов. 
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Поле кода словарной статьи в случае косвенного 
шитого кода занимает 2 байта и содержит адрес машин¬ 
ной программы, которая и выполняет действие, связан¬ 
ное с данным словом. Точка КЕХТ адресного интерпре¬ 
татора обеспечивает этой программе доступ к полю 
параметров данной словарной статьи: Для статей, со¬ 
ответствующих определению через двоеточие, поле кода 
содержит адрес точки САП, адресного интерпретатора, 
а поле параметров представляет собой последователь¬ 
ность адресов словарных статей, входящих в данное 
определение. Завершается такая последовательность 
адресом словарной статьи ЕХІТ (выход), который 
компилируется завершающей данное определение точ¬ 
кой с запятой. Для словарных статей нижнего уровня, 
т. е. реализованных непосредственно в ма ш инном коде, 
поле кода содержит адрес соответствующей машинной 
программы, которая обычно располагается в поле пара¬ 
метров этой статьи. Таким образом, можно сказать, 
что поле кода словарной статьи содержит адрес машин¬ 
ной программы — интерпретатора поля параметров. 
Все слова, определенные через двоеточие, имеют в ка¬ 
честве интерпретатора действие СА]Х адресного интер¬ 
претатора, слова нижнего уровня наоборот имеют 
каждое свой отдельный интерпретатор в виде ма ш инной 
программы, размещенной в поле параметров. В частно¬ 
сти, такой программой для слова ЕХІТ является дей¬ 
ствие КЕТТЖ1Ч адресного интерпретатора. 

На рис. 2.4. приведены адресный интерпретатор и 
структура словарной статьи для определения 

і Г ( й —> Й»СА+1 3/2) вир 1* 2 «/ I 

вычисляющего сумму натуральных чисел от I до А по 
известной формуле. В качестве языка нижнего уровня 
для записи действий адресного интерпретатора при¬ 
меняется очевидная нотация. Переменная КІ обозна¬ 
чает указатель текущего места в интерпретируемом 
коде, процедура МЕМ дает значение, находящееся по 
заданному адресу в памяти форт-системы. Процедуры 
ЯРІІ8Н и К.РОР используются для обращения к стеку 
возвратов с тем, чтобы положить значение на его верши¬ 
ну и снять верхнее значение. 

На рис. 2.4 изображены две словарные статьи: 
верхнего уровня для слова Е, определенного через 
двоеточие, и нижнего уровня для слова ЕХІТ, являю- 
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: Т (А—А «[А+ 11/2) ВИР 1 + 2 */; 
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Рис. 2.4. Адресный интерпретатор и структура сло¬ 
варной статьи для косвенного шитого кода 

щаяся к тому же частью адресного интерпретатора. 

Поле имени каждой статьи начинается байтом- 
счетчиком, в котором записано число литер в имени 
слова. Далее располагаются коды самих этих литер. 

Вслед за полем имени идет поле связи, содержащее 
адрес поля имени предыдущей словарной статьи. В тех 
реализациях, где двухбайтные значения должны рас¬ 
полагаться с четного адреса, поле имени тоже распо¬ 
лагают с четного адреса, дополняя его (как в случае 
слова ЕХІТ) до четного числа байт специальным кодом 
(обычно пробелом или нулем). 

Поле кода словарной статьи содержит адрес 
машинной программы. Для слова Р это адрес точки 
САТЕ адресного интерпретатора, для слова ЕХІТ — 
адрес его поля параметров, где и располагается соот¬ 
ветствующая программа. 

Наконец, в соответствии с техникой шитого кода 
в поле параметров статьи для слова Г располагается 
последовательность адресов полей кода словарных 
статей тех слов, из которых составлено его определение. 
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В этих адресах перед именем слова стоит знак . Ском¬ 
пилированное число занимает две ячейки: в первой 
находится адрес специального служебного слова ЫТ 
(от ЫТЕКАЁ — литерал), а во второй — значение 
данного числа. Действие слова ЫТ состоит в том, что 
значение числа кладется на стек данных, а указатель 
интерпретации передвигается дальше, обходя это зна¬ 
чение в шитом коде: 

ЫТі Ні *МЕМ (КІ ) | рцан (Ы) | КІі=Щ+2| 90(0 N Е X Т | 

Здесь используется тот факт, что в момент перехода на 
очередную машинную программу в действие МЕХТ ука¬ 
затель текущего места КІ уже установлен на следующий 
элемент интерпретируемой последовательности адресов. 

Адреса полей словарной статьи имеют традиционные 
обозначения, которые представляют аббревиатуры их 
английских названий: 


АРА - 

Ааае 

РІІІО 

АРРгеав - а{рсс пола 

имени 

СРА - 

Ііпк 

РІ» 1 А 

АРРгеае - адрес пола 

сваей 

СРА - 

Соре 

Ріеій 

АРРгеее - адрес попа 

нова 

РРА - 

РігімИг 

Ріеіі) АіЫгоіа - адрес 

пола 




параметров 


Представлением словарной статьи считается адрес ее 
поля кода. Стандартное слово > ВСЮУ (от Ьосіу - 
тело) СГА -*• РГА преобразует его в адрес поля па¬ 
раметров. По аналогии во многих реализациях введен 
следующий ряд слов для переходов между остальными 
полями статьи: 

В0ВѴ> РРА- > СГА 

>МАНЕ СГА > ИРА 

ИАМЕ> ИРА > СРА 

АНІАК АРА —> ІРА 

ОААИЕ ІРА -> ИРА 

Их реализация определяется принятой структурой 
словарной статьи. 

Стандарт предусматривает слово ЕХЕСЕТЕ (ис¬ 
полнить) СРА -► которое снимает со стека адрес поля 
кода словарной статьи и исполняет ее. Непосредственно 
под этим значением в стеке должны находиться пара¬ 
метры, необходимые данному слову. Такой механизм 
открывает широкие возможности для передачи слов- 
команд в качестве параметров. 
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2.3. Стек возвратов 

и реализация структур управления 

Один из важных принципов языка Форт состоит 
в том, чтобы предоставить программисту максимальный 
доступ ко всем средствам его реализации. В соответ¬ 
ствии с этим принципом собственные данные адресного 
интерпретатора — стек возвратов — были сделаны до¬ 
ступными, для чего введены специальные слова: 
> КА К> -*-А иК@-^А. Буква К (от КЕТИКЗЧ — 
возврат) в имени этих слов напоминает о том, что они 
работают со стеком возвратов. Все эти слова можно 
использовать только внутри компилируемых опреде¬ 
лений. Во время исполнения любого такого определе¬ 
ния, представленного в ш итом коде как подпрограмма 
верхнего уровня, на вершине стека возвратов нахо¬ 
дится адрес того места, откуда данное определение было 
вызвано (адрес возврата). Это значение было поме¬ 
щено туда действием САІІ при входе в данное опреде¬ 
ление. Адрес возврата будет снят со стека возвратов 
и использован для продолжения интерпретации дей¬ 
ствием КЕЛЛПМ, составляющим семантику слова 
ЕХІТ. 

Перечисленные слова позволяют программисту 
вмешиваться в описанный механизм вызова, реализуя 
свои собственные схемы передач управления, и, кроме 
того, использовать стек возвратов для хранения вре¬ 
менных данных в пределах одного определения (все 
положенные на стек возвратов значения должны быть 
сняты с него перед выходом из определения). Однако 
неосторожное манипулирование стеком возврата может 
вызвать непредсказуемые последствия, вплоть до раз¬ 
рушения форт-системы. Слово Ж (читается «на эр») 
переносит значения с вершины стека данных на стек 
возвратов. Обратное действие выполняет слово К> 
(читается «с эр»). Слово К.@ (читается «эр разымено¬ 
вать») копирует вершину стека возвратов на стек дан¬ 
ных, сохраняя это значение на стеке возвратов. 

С помощью описанных слов легко определить, на¬ 
пример, приведенное выше слово ЕІТ , компилируемое 
в шитый код вместе со следующим за ним значением, 
чтобы со время счета положить это значение на стек 
данных: 

і ілт ( —> й ) кв « в> 2+ >в | 
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Во время работы данного определения слово Я@ кладет 
на стек адрес возврата, указывающий в этот момент 
на следующий после адреса статьи ЫТ элемент в ин¬ 
терпретируемой последовательности адресов (см. 
рис. 2.4). Слово @ разыменовывает этот адрес, таким 
образом на стеке оказывается скомпилированное 
в ш итый код число. Слова К> 2+ > Я увеличивают 
адрес возврата на 2, чтобы обойти значение числа, т. е. 
чтобы оно не было воспринято как адрес некоторой 
статьи. Таким образом, в приведенном определении 
слова ЫТ реализован интересный способ передачи 
параметра через адрес возврата, невозможный в тра¬ 
диционных языках программирования. 

Рассмотренные ранее структуры управления — 
условный оператор и циклы — также легко выражаются 
через эти понятия. По их образцу программист может 
создавать собственные структуры управления, совер¬ 
шенствуя свой инструментарий. Реализация условного 
оператора и циклов с проверкой опирается на следую¬ 
щие слова, аналогичные рассмотренному выше слову 
ЫТ: 


I С0НРИЕ ( — > > ЯІ I , Я> 2* >Я | 

I ВКАНСН |-> ) Я> « Ж і 

і 78ЯАНСН ( А—» Я> 8МАР 1 Г 2* Е1$Е I ТНЕМ >Я | 

Слово СОМРІЬЕ (компилировать) компилирует (т. е. 
добавляет) на вершину словаря значение, находящееся 
в ш итом коде непосредственно за данной ссылкой на 
статью СОМРІТЕ. Слово ВКАКСН (переход) пере¬ 
устанавливает указатель интерпретации по адресу, 
скомпилированному вслед за данной ссылкой на статью 
ВЯАК1СН . Наконец, слово РВЯА1ЧСН снимает значение 
со стека и анализирует его: если это ЛОЖЬ (нуль), 
то оно работает, как ВЯАКСН ,— указатель интер¬ 
претации устанавливается по адресу, скомпилирован¬ 
ному вслед за данной ссылкой на статью РВ ВАКСИ , 
а если это ИСТИНА (не нуль), то при интерпретации 
данной последовательности скомпилированный адрес 
перехода будет обойден. То обстоятельство, что в опре¬ 
делении слова РВЯАІКСН используется условный 
оператор, для реализации условного оператора не¬ 
существенно, потому что на практике слова ВЯАК1СН 
и РВВАК1СН реализуются в форт-системах как под¬ 
программы нижнего уровня. Приведенные определения 
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лишь иллюстрируют выразительные возможности 
языка, показывая, что даже такие, самые элементарные 
действия можно задать машиннонезависимым способом 
в виде высокоуровневых определений. 

Вот еще пример определения важного стандартного 
слова: 

I І.ІТЕКАІ ( А-> А/ > 8ТАТЕ • 

ІР СОНРНЕ ИТ , ТНЕМ | ІННЕОІАТЕ 

Слово ІЛТЕКАЬ анализирует текущее состояние тек¬ 
стового интерпретатора: если это компиляция, то ком¬ 
пилирует значение, находящееся на вершине стека, как 
литерал в шитый код; в противном случае это значение 
остается на стеке. 

Теперь у нас достаточно средств, чтобы выразить 
стандартные структуры управления, как обычные опре¬ 
деления, через двоеточие. Например, слова для услов¬ 
ного оператора можно определить так: 

I ІР ( — > А) СОНРНЕ 7ВРАИСН НЕРЕ 2 АІЮТ | 

ІННЕОІАТЕ 

I ТНЕИ ( А —> ) НЕРЕ 5НАР ! | ІННЕОІАТЕ 

і ЕЩЕ ( А1 —> А2 > СОНРНЕ ВІШСН НЕРЕ 
2 АІЮТ НЕРЕ РОТ ! | ІННЕОІАТЕ 

Все эти слова имеют признак немедленного исполнения, 
который придается им словом ІММЕОІАТЕ , исполнен¬ 
ным сразу после завершения каждого определения. Это 
означает, что данные слова будут исполняться, а не 
компилироваться, как остальные, во время обработки 
тела определений текстовым интерпретатором форт- 
системы. 

На рис. 2.5 показана последовательность состояний 
словаря и стека в разные моменты обработки фрагмента 
А В ІГ С Э ТНЕМ Е Г в теле определения через двое¬ 
точие. Эту обработку выполняет текстовый интерпре¬ 
татор, находящийся в состоянии компиляции. В резуль¬ 
тате строится последовательность адресов словарных 
статей в соответствии с принятой техникой шитого кода. 

Пусть слова А, В, ..., Г являются обычными форт- 
словами, не имеющими признака немедленного испол¬ 
нения. Тогда соответствующие им адреса будут компи¬ 
лироваться на вершину словаря. 

Состояние / на рис. 2.5. соответствует моменту 
обработки непосредственно перед вводом слова ІЕ. 
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Рис. 2.5. Компиляция условного оператора 


На вершине словаря скомпилированы адреса статей 
А и В и указатель вершины НЕКЕ указывает на следую¬ 
щий адрес. Слово ІГ имеет признак немедленного 
исполнения, поэтому будет не скомпилировано, а ис¬ 
полнено. 

Состояние // показывает результат исполнения сло¬ 
ва ІГ . На вершину словаря скомпилирована ссылка 
на статью 2ВКА1ЧСН, вслед за которой отведено еще 
2байта под адрес перехода, и адрес зарезервированного 
места сохранен на стеке данных. 

Дальнейшие слова С и Б будут опять компилиро¬ 
ваться. Состояние /// соответствует моменту перед 
вводом слова ТНЕN . 

Слово ТНЕИ , как и ІГ, имеет признак немедлен¬ 
ного исполнения, поэтому будет исполняться; в резуль¬ 
тате возникнет состояние IV. В этот момент определя¬ 
ется адрес перехода для скомпилированной словом ІГ 
ссылки на статью 7ВКА1ЧСН ; это текущее значение 
указателя вершины словаря НЕКЕ , которое и вписы¬ 
вается в зарезервированные ранее 2 байта. Результат 
дальнейшей компиляции приводит к состоянию V 
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Аналогичным образом исполняется и определение 
слова ЕЬ8Е , которое компилирует обход части «иначе» 
и вписывает адрес ее начала в качестве адреса пере¬ 
хода для ссылки 7ВВАЫСН . В свою очередь, адрес 
перехода для скомпилированного обхода будет вписан 
завершающим условный оператор словом ТНЕТЧ. 

Можно повысить надежность программирования 
условного оператора введением контроля за соответ¬ 
ствием слов ІГ , ТНЕМ и ЕЕ8Е с помощью вспомога¬ 
тельного слова 7РАІК8 : 

і 7РА1К5 ( А1,А2— м - А В О К Т '• НЕПАРНЫЕ СКОБКИ' | 

которое снимает два значения со стека и, если они не 
равны между собой (их разность не нуль), выдает 
сообщение об ошибке с пояснительным текстом «Непар- 
ные скобки». Стандартное слово АВОК.Т" (выброс 
и кавычка) А -*■ (исполнение) по своему употреблению 
аналогично слову (точка и кавычка): оно снимает 
значение со стека и, рассматривая его как логическое, 
сигнализирует об ошибке, печатая следующий за ним 
текст до кавычки, если это значение ИСТИНА (не нуль). 
Усиленные таким контролем определения слов услов¬ 
ного оператора выглядят следующим образом: 

I ІР ( - > А,1 ) 

СОНРНЕ 7ВКАКСН НЕКЕ 2 АІЛОТ 1 { ІННЕОІАТЕ 

I ТНЕИ ( А,1 —> ) 1 7РАІК5 НЕКЕ БИАР ! I ІННЕОІАТЕ 

I Е1.БЕ ( А1,1-> А2,1 ) 1 7РАІК5 

СОНРНЕ ВКАНСН НЕКЕ 2 АН ОТ 
НЕКЕ КОТ ! | ІННЕОІАТЕ 

В этих определениях для контроля вместе с адресом 
зарезервированного места передается число 1, которое 
проверяется с помощью слова 7РАІК8 в словах, ис¬ 
пользующих переданный адрес. Такой простой способ 
контроля на практике оказывается вполне достаточным. 
При этом программист может встроить любой другой 
контроль по своему желанию. 

Приведенное определение условного оператора 
связано с реализацией стандартных слов ВКА1ЧСН 
и 7ВКАЖ7Н , выполняющих переходы в шитом коде. 
Из соображений эффективности эти слова обычно 
задают как подпрограммы нижнего уровня в ма ш инном 
языке. Тогда в зависимости от архитектуры ЭВМ 
может оказаться предпочтительней ле абсолютный, как 
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в приведенной реализации, а относительный адрес 
перехода, компилируемый в шитый код сразу после 
ссылки на статью ВЯАКСН или 7ВЯА1ЧСН . Чтобы 
сделать определения, использующие эти слова, машин¬ 
нонезависимыми, стандарт предусматривает следующие 
слова для организации таких ссылок: 


>МАВК 

-> А 

ЖЕ501ѴЕ 

А —> 

< МАРК 

— > А 

<АЕ30ЮЕ 

А ---> 


Слово > МАЯК (от МАЯК — отметить) резервирует 
место для ссылки вперед и оставляет адрес зарезерви¬ 
рованного места на стеке. Слово > ЯЕ80ЯѴЕ (от 
ЯКЗОЯѴЕ — разрешить) снимает этот адрес со стека 
и вписывает в него ссылку на текущую вершину словаря 
в соответствии с принятой реализацией переходов 
в шитом коде, согласованной с реализацией слов ВКАИСЕІ 
и 7ВЯАКСН . Аналогично слова <МАЯКи <ЯЕ80ЬѴЕ 
предназначены для организации ссылок назад. Слово 
<МАЯК кладет на стек текущий адрес вершины сло¬ 
варя, а слово <ЯЕ80ЯУЕ компилирует ссылку на 
переданную точку. Окончательно определения слов 
условного оператора можно задать следующим образом 
(как они и выглядят в большинстве практических реали¬ 
заций): 


1 ІР ( -> А,! I СОНРІІЕ 7ВКАМСН >ИАКК 1 | 

ІМНЕОІАТЕ 

і ТНЕМ ( А, 1->» 1 7РАІРЗ ЖЕЗОЬѴЕ і ІИМЕОІАТЕ 

I Е1.5Е ( А1,1->А2,1 > I 7РАІКВ СОНРІІЕ ВВАНСН 

>МААК ЗНАР ЖЕ501ѴЕ I | ІНМЕОІАТЕ 

Аналогичным образом реализуются слова для циклов 
с проверкой (рис. 2.6): 

I ВЕСIN (-> А,2 ) <НАЯК 2 | ІМНЕОІАТЕ 

1 ШІТП. ( А1,2-> ) 2 7РДІК8 

СОНРІІЕ 7ВРАМСН < ВЕЕОЬѴЕ | ІМНЕОІАТЕ 

I ИННЕ ( А1,2-> АІ,А2,3 ) 2 7РАІВ5 

СОМРПЕ 7ВКАИСН >НАЯК 3 | ІМНЕОІАТЕ 
і ВЕРЕАТ I АІ,А2,3— » 3 7РАІАВ СОМРПЕ ВРАМСН 
ЗМАР < АЕЗОСѴЕ «Е50І.ѴЕ | ІМНЕОІАТЕ 

Очевидно, что реализованные таким образом стандарт¬ 
ные структуры управления могут произвольно глубоко 
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I А В ВЕЕІ N С I) ШІІ. Е Г... 

II-...А В ВЕЕІ N С Ь ИННЕ Е Р КЕРЕАТ Е Н ... 

В НО С Р ШР Е р ... 



Рис. 2.6. Компиляция циклов 


вкладываться друг в друга; несоответствие скобочных 
структур будет немедленно замечено, и программист 
получит сообщение об ошибке. 

Циклы со счетчиком (рис. 2.6) реализуются анало¬ 
гичным образом через вспомогательные слова (ОО) , 
(ЬООР) и (+ ЬООР) , компилируемые в шитый код 
вместе с адресом перехода: 

1 СО (-> А1, А2,4 ) СОИРИЕ (00) 

>МАКК < МАКК 4 | ІКМЕОІАТЕ 

і 1.00Р I А1,А2,4 —>) 4 7РАІКВ СОИРПЁ НООР) 

<РЕ501ѴЕ ЖЕБОЬѴЕ | ІИИЕОІАТЕ 
I НООР ( А1,А2,4- — >) 4 7РАІКВ СОИРИЕ (+100?) 

< РЕ501.ѴЕ ЖЕБОЬѴЕ ) ІИИЕОІАТЕ 

Слово (ОО) , с которого начинается исполнение ском¬ 
пилированного цикла со счетчиком, переносит на стек 
возвратов следующий за ним адрес конца цикла (он 
нужен для немедленного выхода из цикла по слову 
ЬЕАѴЕ ) и параметры данного никла — начальное 
и граничное значения счетчика, снимая их с вершины 
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стека данных. Эти значения находятся на вершине 
стека возвратов в течение всего времени исполнения 
тела цикла. 

Слово (ЬООР) , завершающее скомпилированный 
цикл, продвигает текущее значение счетчика и в случае 
повторения цикла переводит указатель интерпретации 
на начало тела по скомпилированному вслед за ним 
адресу перехода, а при завершении цикла сбрасывает 
стек возвратов в исходное состояние. 

Аналогично работает и слово ( +ІХЮР) , которое 
дополнительно снимает со стека данных значение шага 
цикла. Разумеется, реализация этих слов должна соот¬ 
ветствовать принятому способу задания переходов 
в ш итом коде. Для прямых адресов перехода соответст¬ 
вующие определения можно задать так: 

1 (00) < А2і ГРАНИЧНОЕ, АПНАЧАЛЬНОЕ-> ) 

К> ( А2,А1, Кі ВОЗВРАТ) О0Р I Ж ( ДЛЯ ЬЕАѴЕІ 
КОТ Ж ( ГРАНИЧНОЕ) ЗМАР Ж ( НАЧАЛЬНОЕ) 

2+ Ж ( ОБОЙТИ АДРЕС В ВИТОМ КОДЕ) | 
і ЦООР) ( ---> ) 

К> К> КІ ( Кі ВОЗВРАТ і II ТЕКѴІЕЕ , А2і ГРАНИЧНОЕ) 

- 0 1. 0+ < К, I-А2М ,Р і ПРИЗНАК ЗАВЕРІЕНИЯ) 

ІР ( ЗАКОНЧИТЬ) 

0К0Р Н> К> 20К0Р 2* I ОБОЙТИ АДРЕС ) 

Е15Е ( ПРОДОЛІИТЫ 

КІ * Ж ( НОВОЕ ЗНАЧЕНИЕ СЧЕТЧИКА) 

« < АДРЕС НАЧАЛА ТЕЛА ЦИКЛА) 

ТНЕЙ Ж | 

Определение (-(-ЬООР) выглядит аналогично. 

Во всех приведенных примерах доступ к адресу 
возврата в ш итом коде осуществляется через стек воз¬ 
вратов из данного определения. Этот адрес модифици¬ 
руется словами 2+ или @ , тем самым обеспечивая 
обход скомпилированной ссылки или переход по ее 
значению. Слова I и ЬЕАѴЕ , которые используются 
внутри тела цикла для получения текущего значения 
счетчика и немедленного выхода из цикла, можно за¬ 
дать так: 

I I (-> А ) К> К* БИАР ж | 

( ІЕАѴЕ ( -> ) К> ВКОР К> СКОР К> ВКОР | 

Для повышения быстродействия практические реали¬ 
зации языка Форт обычно определяют все эти слова, 
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как и ВКЛІМСН , в виде подпрограмм нижнего уровня 
в машинном коде. В этом случае, например, слово I 
полностью эквивалентно слову К@ . 

Описанная реализация циклов со счетчиком через 
использование стека возвратов накладывает ограниче¬ 
ния при программировании. Неосмотрительное вклю¬ 
чение слов > К, К> , К.@ и ЕХІТ в тело цикла со 
счетчиком может привести к непредсказуемому ре¬ 
зультату. 

Вместе с тем отстутствие какого-либо контроля 
является еще одной характерной чертой языка Форт. 
Благодаря этому программист может реализовать 
любые конструкции (включая и средства контроля). 

2.4. Управление поиском слов 

Множество слов, «известных» форт-системе, 
хранится в словаре в виде одного или более цепных 
списков словарных статей, соединенных через поле 
связи. Порядок поиска статей в этих списках обратен 
порядку их включения в словарь по времени определе¬ 
ния: статья последнего определенного слова находится 
в начале списка. Такой порядок делает естественным 
исключение слов из словаря с помощью слова РОКОЕТ : 
нужный список просто усекается до соответствующего 
места. 

Являясь самостоятельной структурой данных, спи¬ 
сок слов имеет и соответствующее определяющее 
слово — ѴОСАВЕІЕАКУ (словарик, список слов) —► 
аналогичное слову ѴЛКІЛВБЕ. Оно выделяет из вход-’ 
ной строки очередное слово и определяет его как новый 
список слов, например, УОСАЕШБАКУ А. 

Со списками слов тесно связаны две стандартные 
переменные ССЖТЕХТ (контекст) и СЕ 1 К КЕІМТ (теку¬ 
щий) и слово РОКТН (Форт), обозначающее список, 
который состоит из всех стандартных слов и включает, 
в частности, само это слово. 

Поиск каждого введенного слова начинается в спис¬ 
ке, на который указывает переменная ССЖТЕХТ , затем 
в случае неудачи просматривается список — текущее 
значение переменной СІЖКІЖТ . Стандарт требует, 
чтобы последним просмотренным списком всегда был 
список РСЖТН . Исполнение слова, обозначающего 
список, делает его текущим значением переменной 
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ССШТЕХТ , т. е. первым списком, который просматри¬ 
вается при поиске слов. 

Стандартное слово ОЕРШІТІСЖ8 (определения) 

і 0ЕРШТІ0И9 (-> ) СОИТЕХТ • С0ЯЯЕНТ ! | 

устанавливает переменную С1ШЯЕ1ЧТ по текущему 
значению переменной ССЖТЕХТ , т. е. соответствующий 
список становится вторым на очереди для просмотра 
и одновременно тем списком, куда добавляются новые 
словарные статьи. Первоначально обе эти переменные 
установлены на один и тот же список ГСЖТН . К этому 
состоянию приводит исполнение текста ГОКТН ОЕ- 
РІІЧІТЮ1Ч8 . Разумеется, в этом случае поиск слов 
будет состоять в однократном просмотре списка слов 
ЕОКТН. 

Приведенное выше описание определяет порядок 
поиска лишь в общих чертах. Детали стандарт 
оставляет на усмотрение разработчиков реализации. 
Обычно используется схема, приведенная на рис. 2.7. 
Для каждого списка в поле параметров его статьи 
строится заголовок «фиктивной» статьи для невозмож- 


ѵос-шк соытсхт сцтмт 



62 




ного слова (например, состоящего из одного пробела), 
и представлением списка (значением переменных 
СОХГГЕХТ и С1ЖКЕЕГГ ) служит адрес поля связи 
этого заголовка, т. е. адрес второго элемента в поле 
параметров. Сам этот элемент является входом в цепной 
список словарных статей, принадлежащих данному 
списку слов. В качестве его начального значения в 
момент создания списка словом ѴОСАВІЛАКУ ис¬ 
пользуется адрес поля параметров словарной статьи 
другого списка, который таким образом является ба¬ 
зовым для данного (обычно это текущее значение пере¬ 
менной ССЖТЕХТ). 

Таким образом, новый список через заголовок фик¬ 
тивной статьи присоединяет к себе все слова базового 
списка. 

В конечном счете любой список заканчивается сло¬ 
вами списка РСЖТН , который уже не имеет базового. 
На рис. 2.7 показаны поля параметров списков А , В 
и ГОКТН . Список В является базовым для А и, в свою 
очередь, базируется на списке РОКТН . Слова А|, ... , 
А/ входят в список А ; В і , ... , В„, — в В и Р|, , Р„ — 

в РСЖТН. 

Показанный на рисунке порядок поиска слов соот¬ 
ветствует исполнению текста В □ ЕРІЖТЮІ'Ж А, 
в результате чего сначала будут просмотрены списки 
А , В , РСЖТН , а затем В , РСЖТН . 

Чтобы обеспечить большую гибкость в управлении 
порядком поиска слов и иметь возможность переопре¬ 
делять стандартные слова, в некоторых реализациях 
предусмотрено создание безбазовых списков. Это спис¬ 
ки, создаваемые в контексте списка РСЖТН , для кото¬ 
рых РСЖТН был бы базовым. Наличие безбазовых 
списков компенсируется тем, что в алгоритме поиска 
последним действием после просмотра списков, опре¬ 
деляемых переменными ССШТЕХТ и СІЖВРХТ, про¬ 
сматривается список РСЖТН , если он еще не был про¬ 
смотрен через эти переменные. 

Для учета всех существующих списков (что необхо¬ 
димо для реализации слова РСЖСЕТ ) в их поле пара¬ 
метров резервируется еще одна ячейка: через которую 
все эти структуры связаны в единый цепной список, 
начинающийся в служебной переменной ѴОС — ЬШК . 
Определение слова ѴОСАВІЖАКУ с учетом перечислен¬ 
ных соглашений может выглядеть так: 
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I ѴОСАВШ.АКѴ (-> ) СЯЕАТЕ 

256 ВІ 6 , СОМТЕХТ • 2- , 

НЕЯЕ Ѵ0С-І.ІНК • , ѴОС-ІІИК ! 

ООЕВ> ( А ™> > 2* СОНТЕХТ ! | 

Когда в список включается новая словарная статья, 
то в поле связи ее заголовка копируется значение из 
поля связи фиктивной статьи в поле параметров данного 
списка, а туда заносится адрес нового заголовка. Таким 
образом, можно определить слово ІАТЕ8Т (послед¬ 
ний): 


I ІАТЕВТ (-> МРА ) СІШЕИТ • • | 

которое возвращает адрес заголовка последней создан¬ 
ной словарной статьи (обычно это адрес поля имени). 
Через это слово становится очевидной, например, реали¬ 
зация слова ІММЕВІАТЕ: 

і ІНМЕОІ АТЕ ( —->) ІАТЕВТ СВ 12В ОН 1.АТЕБТ С! | 

которое устанавливает в единицу признак немедленного 
исполнения в байте-счетчике последней созданной 
словарной статьи. 

В соответствии с общими принципами языка Форт 
сам процесс поиска слова в словаре доступен програм¬ 
мисту. Стандарт предусматривает для этого следующие 
слова: 


---> СРА 

С'1 —> СРА <»елоли»ки») 

ЕСОНРНЕ] > (КОМПИЛЯЦИЯ) 

РІИО А > СРА,N / А|О 

Слово ' (апостроф, читается «штрих») вводит 
очередное слово и ищет его в словаре, возвращая адрес 
поля кода найденной статьи (если слово не найдено, то 
это считается ошибкой). 

Слово ['] имеет признак немедленного исполнения 
и используется внутри определений через двоеточие, 
образуя вместе со следующим словом единую пару: во 
время исполнения адрес поля кода этого слова будет 
положен на стек данных. 

Слово [СОМРІЕЕф уже встретившееся ранее, 
вводит и компилирует следующее слово независимо 
от признака немедленного исполнения. 
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Наконец, слово РШБ (найти) позволяет формиро¬ 
вать образец для поиска программным путем: его па¬ 
раметром является адрес строки со счетчиком, которая 
рассматривается как имя слова. В случае успеха РШБ 
возвращает адрес поля кода его словарной статьи 
и значение 1Ы, характеризующее признак немедленного 
исполнения: 1, если признак установлен, и —1, если 
отсутствует. В случае неудачи слово РШО возвращает 
прежний адрес строки со счетчиком и значение 0 — 
сигнал о неудаче. 

Разумеется, слова ’ и ['] используют слово РШБ: 

I • (-> А > ВІ МОЯО РШ ІР ЕХІТ ТНЕН 

соишт тѵре -і авоят* ?* і 

1 С'] (-> > • С0ИРП.Е ИТ , ) ІИИЕОІАТЕ 

I СС0МРИ.Е] ( —> ) • , | I ИИЕВІ АТЕ 

которое, таким образом, является основным в опреде¬ 
лении порядка поиска слов. 

В заключение рассмотрим определение стандартного 
слова РОК.ОЕТ , которое вводит очередное слово, ищет 
его в словаре и исключает из словаря вместе со всеми 
словами, определенными после него. 

Служебная переменная ЕЕ1ЧСЕ (забор) защищает 
начальную часть словаря от случайного уничтожения. 
Она содержит адрес, отмечающий границу защищен¬ 
ной части (чтобы исключить слова из защищенной об¬ 
ласти нужно сначала понизить это значение): 

1 РОЯВЕТ (-> ) >НАМЕ < ЫРАІ 

ВЦР РЕЙСЕ I ІК АВОЯТ* ЗАВИТА ПО РЕПСЕ* 

>Я ѴОС-ІІНК I < N 01 ВХОО в СПИСОК СПИСКОВ) 

ВЕБ1И ЯІ ОѴЕЯ ІК ИННЕ ( N1 ЗВЕНО СВЯЗИ СПИСКА) 

РОЯТН 0ЕРІИІТІ0ИЗ 

I СИР ѴОСЧІИК ! I N1: ЗВЕНО СЛЕДУИ1ЕГ0) 

ЯЕРЕАТ ( N11 ЗВЕНО 0СТАШГ0СЯ СПИСКА) 

ВЕВІН вир 4 - ( N 1 ЗВЕНО СВЯЗИ, Ьі ВХОА в СЛОВА) 

ВЕОІМ ЮШК • < N 'НРАі ОЧЕРЕДНОЕ СЛОВО) 

оир Я( ІК [ШИ < И,НРАі:ОСТАИІЕЕСЯ СЛОВО) 

ОѴЕЯ 2- ( И, НРАІ ,Ь і АДРЕС СВЯЗИ РИКТИВНОИ СТАТЬИ) 

• • ?оир о» 

МГЦ. Я> I МРАО) НЕЯЕ - АЫОТ I 

Сначала определяется адрес статьи исключаемого 
слова, проверяется, что она расположена выше границы 
защиты, и этот адрес сохраняется на стеке возвратов. 


3 Зак. № 966 
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В ходе исполнения первого цикла перебираются все 
существующие статьи для списков слов и исключаются 
те, адреса которых оказались больше данного (в силу 
монотонного убывания адресов в цепном списке ѴОС — 
ЬШК цикл прекращается, как только адрес очередной 
статьи оказывается меньше данного). Во время испол¬ 
нения второго цикла продолжается перебор оставших¬ 
ся статей для списков слов, при этом в каждом списке 
отсекаются статьи, адреса которых больше данного 
(здесь опять используется монотонное убывание адре¬ 
сов словарных статей в пределах одного списка). В зак¬ 
лючение указатель вершины словаря понижается до 
заданного адреса, тем самым освобождая память в сло¬ 
варе. Перед началом описанных действий переменные 
СОМТЕХТ и СЕГККЕІЧТ устанавливаются на список 
РОЕТН , чтобы их значение было осмыслено во все 
время дальнейшей работы. 

2.5. Реализация определяющих слов 

Механизм определяющих слов составляет одно 
из основных достоинств языка Форт, главную «находку» 
его создателей. С его помощью программист может 
вводить свои типы данных и структуры управления, 
задавая их внешнее синтаксическое оформление и внут¬ 
реннюю семантическую реализацию. Исходный строи¬ 
тельный материал программист может брать из срав¬ 
нительно небольшого исходного запаса слов-команд 
языка или создавать сам. 

Широкие выразительные возможности и вместе с тем 
компактность реализации этого механизма вытекают из 
того, что в его основе лежит фундаментальный принцип 
частичной параметризации. Его применению в тради¬ 
ционных языках программирования мешал громоздкий 
аппарат процедурного вызова, который считался в этих 
языках элементарным и неделимым действием. В языке 
Форт конструкция вызова разложена на отдельные 
составляющие и доступна «по частям», в частности 
имеется доступ к адресу возврата и всему динамиче¬ 
скому контексту вызова. 

В сочетании с единым механизмом передачи пара¬ 
метров через стек и компактной реализацией через 
ш итый код это дает недостижимый для других языков 
уровень свертки понятий. 
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: С0Ы5Т СЯЕЛТГ, СОЕ$> ф ■ 

4 С0М5Т ХОР 

5 С0М5Т ОТЛ 



ООЕ5: РІ/ЗН(ѴѴ+2); РКШ(КІ); 
Иг-КЕШК; уоЬе NГХТ; 


Рис. 2.8. Структура статьи определяющих и определя¬ 
емых слов 


На рис. 2.8 приведена структура словарных статей, 
возникающая после обработки определений 

I С0Н5Т СЛЕЙТЕ , 00Е5> • | 

4 СОНЗТ ХОР 5 С0№Т ОТЛ 

Там же показана словарная статья для слова : , в теле 
которой находится точка САІХ адресного интерпре¬ 
татора. 

Поле кода статьи ССЖ8Т содержит адрес точки 
САІХ, а поле параметров содержит последовательность 
ссылок на словарные статьи, скомпилированную адрес¬ 
ным интерпретатором в соответствии с техникой ш итого 
кода. Слово [)ОЕ8> , входящее в это определение, 


3 
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имеет признак немедленного исполнения, поэтому оно 
не компилируется вслед за ссылкой на статью для за¬ 
пятой, а исполняется. Его исполнение состоит в компи¬ 
ляции ссылки на статью вспомогательного слова 
(;ССШЕ) и компиляции ма ш инной команды .15 К пере¬ 
хода с возвратом на специальную точку БОЕ8 в ядре 
форт-системы. Далее текстовый интерпретатор компи¬ 
лирует ссылку на статью для @ и исполняет (в силу 
признака немедленного исполнения) слово которое 
завершает построение словарной статьи. Оно компили¬ 
рует ссылку на статью ЕХІТ и переключает текстовый 
интерпретатор в состояние исполнения. 

Во время исполнения слова С01Ч8Т во фрагменте 
4 СО^Т ХОР входящее в него слово СКЕАТЕ создаст 
для слова ХОР заголовок словарной статьи и поле кода, 
заслав туда стандартный адрес. Следующее слово , 
скомпилирует число 4 в поле параметров, а слово (;СООЕ) 
занесет в поле кода адрес следующей за ним машинной 
программы и закончит исполнение слова С01Ч8Т : 

I (;СООЕ) ( — > ) К> 1ЙТЕ5Т НАГІЕ > ! \ 

Значение, снимаемое с вершины стека возвратов словом 
К> ,— это как раз адрес команды 18 К в определении 
слова С(Ж8Т . Слово ЬАТЕ8Т кладет на стек адрес 
заголовка последней созданной статьи, т. е. статьи ХОР, 
а слово ЫАМЕ> преобразует этот адрес в адрес поля 
кода. Поскольку со стека возвратов было снято одно 
значение, то по завершении данного определения управ¬ 
ление вернется в точку после вызова определения, выз¬ 
вавшего данное, т. е. на продолжение работы после 
вызова слова ССШ8Т. Аналогичные действия будут 
исполнены при обработке текста 5 С(Ш8Т ОТЛ . Если 
теперь слово ХОР будет исполняться, то из точки NЕXТ 
адресного интерпретатора управление будет передано 
на машинную программу по адресу из поля кода, т. е. 
на команду .18 К. в теле определения СО^Т . Эта ко¬ 
манда перехода с возвратом передает управление на 
точку ООЕ8, сообщив ей в качестве своего адреса воз¬ 
врата адрес следующей последовательности ссылок — 
исполняющей части определения ССЖ8Т . Точка ООЕ8 
кладет на стек адрес поля параметров статьи ХОР 
(в этот момент в рабочей ячейке \У еще находится адрес 
поля кода статьи ХОР , загруженный туда действием 
МЕХТ) и исполняет действие САЕЬ для исполняющей 
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части определения ССЖ8Т . Следующее исполняемое 
слово @ заменит на стеке адрес поля параметров статьи 
ХОР числом 4, скомпилированным по этому адресу, 
и затем слово ЕХІТ завершит исполнение данного вы¬ 
зова слова ХОР . 

Слово : тоже является определяющим, и его словар¬ 
ная статья имеет такую же структуру. Рассмотрим его 
работу на примере трансляции определения С(Ш5Т. 

Создающая часть слова : состоит из слов СКЕАТЕ 
и ] . Первое выбирает из входной строки следующее 
за двоеточием слово (в данном случае ССШ8Т ) и соз¬ 
дает для него начало словарной статьи (заголовок 
и поле кода), а второе переключает текстовый интер¬ 
претатор в состояние компиляции. Последнее в создаю¬ 
щей части слово (;С(ЮЕ) вписывает в поле кода созда¬ 
ваемой новой статьи текущее значение указателя ин¬ 
терпретации, т. е. адрес точки САЕЕ, которая распола¬ 
гается в теле данного определения, после чего исполнение 
двоеточия заканчивается. Поскольку теперь интерпре¬ 
татор находится в состоянии компиляции, то следующие 
вводимые слова будут компилироваться, заполняя поле 
параметров статьи ССЖ8Т последовательностью ссы¬ 
лок. Так будет продолжаться до тех пор, пока слово — 
точка с запятой, отмечающее конец определения и имею¬ 
щее признак немедленного исполнения, не переключит 
интерпретатор обратно в состояние исполнения: 

I ( (-> I СОИРКЕ ЕХІТ [СОИРНЕІ I | 

ІИНЕОІ АТЕ 

Определяющие слова являются механизмом для 
создания классов слов со сходным «поведением», 
которое определяется исполняющей частью и включа¬ 
ется в словарную статью слова через поле кода. Разница 
между словами внутри одного класса состоит в значении 
поля параметров, которое строится при определении 
слова. Слова, определенные через двоеточие, состав¬ 
ляют один из классов наряду с константами, перемен¬ 
ными, списками слов и другими, которые программист 
может вводить по своему усмотрению. При этом дости¬ 
гается существенная экономия памяти за счет того, что 
общая часть всех слов одного • класса присутствует 
в памяти в единственном экземпляре в статье опреде¬ 
ляющего слова. 
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Таким образом, в основе языка Форт лежат две 
структуры: внешняя — простейшая синтаксическая 

структура слова, представленного как последователь¬ 
ность литер, ограниченная пробелом, и внутренняя — 
структура словарной статьи, в которой поле кода задает 
интерпретатор поля параметров. Одним из частных 
случаев такого интерпретатора является адресный 
интерпретатор, и тогда поле параметров содержит 
последовательность интерпретируемых адресов в ш итом 
коде. Этому случаю отвечает определение через двое¬ 
точие. Другие определяющие слова задают другие 
интерпретаторы и соответственно другие структуры 
поля параметров. 

2.6 Встроенный ассемблер 

Встроенный ассемблер позволяет программисту 
задавать реализацию слов непосредственно в машинном 
коде данной ЭВМ. Это дает ему возможность, с одной 
стороны, повышать быстродействие программы до 
максимально возможного уровня за счет перевода 
интенсивно используемых слов непосредственно в ма¬ 
шинный код, а с другой — использовать особен¬ 
ности архитектуры данной ЭВМ и «напрямик» связы¬ 
ваться с операционной системой и внешним окруже¬ 
нием. 

Примеры обоих случаев дает сама форт-система. 
Очевидно, что слова, выполняющие арифметические 
операции или действия с вершиной стека, естественно 
реализовывать непосредственно в машинном коде, по¬ 
скольку скорость их исполнения в значительной степени 
определяет быстродействие системы. Вместе с тем слово 
1+ , увеличивающее на единицу значение на вершине 
стека, можно определить как в машинном коде (особен¬ 
но если в данной ЭВМ есть специальная команда увели¬ 
чения значения на единицу), так и через двоеточие: 

I 1+ ( й -> А+1) 1 ♦ | 

В последнем случае, если к тому же слово 1 реализовано 
в виде отдельной словарной статьи 1 С0К5ТАМТ 1 , 
ш итый код займет всего три ячейки, что может быть 
короче аналогичной программы в машинном коде. Разу¬ 
меется, при этом исполнение будет дольше за счет интер¬ 
претации последовательности из трех ссылок вместо 
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прямого исполнения соответствующих машинных ко¬ 
манд. Также очевидно, что, например, форт-слова для 
обмена с терминалом естественно задать на ма ш инном 
уровне через обращения к соответствующим функциям 
операционной системы или непосредственно к аппа¬ 
ратуре. 

Для определения слов непосредственно в ма ш инном 
коде стандарт языка Форт предусматривает следующие 
слова: 


А6БЕИВІ.ЕК ---> 

СООЕ -> 

ЕИВ-СОВЕ -> 

(СОВЕ > (иомлиліциі) 

составляющие стандартное ассемблерное расширение 

обязательного набора слов. 

Слово А88ЕМВІ.ЕК (ассемблер) является именем 
списка слов, содержащего слова, с помощью которых 
строится машинный код (мнемоники машинных команд, 
обозначения регистров, способы адресации и т. д.). 

Слово СООЕ (код) является определяющим для 
слов нижнего уровня и обычно определяется так: 

I СОВЕ ( ---> ) 

СВЕАТЕ НЕАЕ І.АТЕВТ НАНЕ) ! АБ5ЕНВІ.ЕА | 

Оно используется в сочетании со словом ЕN^-СО^Е 
(конец кода): СООЕ <имя> <машинный-код> 
ЕМБ-СООЕ, где «имя» является именем определя¬ 
емого слова, а «машинный-код» — записью его реали¬ 
зации в машинном коде в соответствии с принятыми 
соглашениями. 

Поле кода такой словарной статьи содержит адрес 
ее поля параметров, в котором располагается данный 
машинный код. 

Наконец, слово ;СОБЕ , имеющее признак немед¬ 
ленного исполнения, позволяет задавать исполняющую 
часть определяющих слов непосредственно в машинном 
коде: 


I СООЕ (-> I С0НРИЕ < | СОВЕ) 

СС0НР11Е1 I А55ЕМ81ЕЯ | ІИНЕВІАТЕ 

Оно используется внутри определения через двоеточие 
для определяющего слова аналогично слову ООЕ8> 
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і <««»> <со«9»»ц»«-ч»сті.> 

IСООЕ <иаѵ*ниый-ко9> ЕИО-СОВЕ 

и отделяет высокоуровневую создающую часть от ис¬ 
полняющей части, заданной в машинном коде. Во 
время исполнения скомпилированного словом ;ССШЕ 
слова (;ССЮЕ) адрес машинной программы, состав¬ 
ляющей исполняющую часть, будет заслан в поле кода 
определяемого слова, которое таким образом получит 
интерпретатор, реализованный в машинном коде. На 
практике именно таким способом задают стандартные 
определяющие слова : , ССЖ8ТА1ЧТ и ѴАКІАВЬЕ . 

Конкретный вид машинной программы зависит от 
архитектуры данной ЭВМ. Общим правилом является 
то, что этот текст представляет собой последователь¬ 
ность слов, которые исполняются текстовым интерпре¬ 
татором, в результате чего на вершине словаря форми¬ 
руется соответствующий двоичный машинный код. 
Машинные команды записываются в естественной 
для Форта обратной польской форме: сначала опе¬ 
ранды, а затем слово, обозначающее мнемонику 
команды. 

Операнды — это слова, вычисляющие на стеке раз¬ 
мещения операндов: номера регистров, адреса в памяти 
и их модификации, значения непосредственных операн¬ 
дов и т. д. 

Мнемоника команды, обычно состоящая из тради¬ 
ционного обозначения данной команды и запятой, сни¬ 
мает со стека размещения своих операндов и компили¬ 
рует соответствующий двоичный код. 

Включение запятой в имя слова для кода команды, 
с одной стороны, подчеркивает тот факт, что данное 
слово компилирует команду, а с другой стороны, поз¬ 
воляет отличать, например, часто встречающиеся мне¬ 
моники АБЭ , СН и т. д. от чисел, заданных в шестнад¬ 
цатиричной системе. 

В табл. 2.1 приведена запись одних и тех же машин¬ 
ных команд в традиционном ассемблере и встроенном 
ассемблере разных форт-систем для нескольких рас¬ 
пространенных типов ЭВМ. Как и в случае реализации 
структур управления, во встроенный ассемблер можно 
включить дополнительные средства контроля, которые, 
учитывая формат машинных команд, проверяют пра¬ 
вильность задания их операндов. 
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Таблица 2.1. Сравнительная запись машинных команд в тради¬ 
ционном ассемблере и встроенном ассемблере форт-системы 


Тип ЭВМ 

Традиционный ассемблер 

Встроенный ассемблер 
форт-системы 

СМ-4 

СМРВ #12, (КТ) + 
ЖР ІЧЕХГ 

КТ8 

12 # Ш ) + СМРВ, 
ЫЕХТ ЖР, 

КТ8, 

ЕС ЭВМ 

8ТМ 14,12,12(13) 

ВАШ 15, 0 

В 18ЕХТ 

14 12 12 (, 13 8ТМ, 

15 0 ВАШ, 

ЫЕХТ В, 

К580 

МОѴ А. В 

1X1 Н, 15 

РОР Н 

А В МОѴ, 

Н 15 1X1, 

Н РОР, 

БЭСМ-6 

, ЕГГС, =15 
, ХТА, 

3, 1ЛТС, 777 

0 0 5 # # ІЛС, 

0 0 ХТА 

3 777 ЕІТС, 


В гл. 3 рассмотрена реализация полного встроенного 
ассемблера для микропроцессора К580, занимающая 
100 строк текста на языке Форт. 

Встроенный ассемблер форт-систем часто делают 
«структурным», т. е. включают в него операторы вет¬ 
вления и циклы, выполняющие переходы по значению 
управляющих разрядов в специальном регистре. По 
аналогии с такими же средствами языка Форт эти струк¬ 
туры задают с помо щ ью тех же слов с добавлением, 
запятой: ІГ, ТНЕХГ, ЕЬЗЕ, ВЕСШ, ІШТІЬ и т. д. При 
этом вводят слова, обозначающие различные состояния 
управляющих сигналов, а слова, реализующие струк¬ 
турные операторы компилируют команды переходов, 
соответствующие указанным состояниям. Такой подход 
позволяет во многих случаях избежать введения слож¬ 
ного механизма переходов на метку, поскольку ассемб¬ 
лерные вставки, для трансляции которых и существует 
встроенный ассемблер, состоят, как правило, из не¬ 
скольких команд. 

Программа в машинном коде, заданная через слова 
ССЮЕ или ;ССШЕ , получает управление от адресного 
интерпретатора и после ее завершения возвращает 
управление интерпретатору на точку МЕХТ. Для связи 
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с адресным интерпретатором в списке слов А88ЕМВЬЕК 
обычно предусматривается ряд констант, обозначаю¬ 
щих точки входа, номера регистров и другие ресурсы 
адресного интерпретатора. Аналогичным образом пре¬ 
дусматривается связь с операционной системой, встро¬ 
енным постоянным программным обеспечением и аппа¬ 
ратурой. 

В общем объеме больших программ на Форте ассем¬ 
блерные коды составляют незначительную часть ( в реа¬ 
лизации самой форт-системы, например, 10—30 %), 
но вместе с тем такая возможность делает программиста 
максимально свободным в выборе средств для реализа¬ 
ции своих идей. 

2.7 Работа с внешней памятью 

В настоящее время в каждом языке программи¬ 
рования тем или иным способом решаются вопросы 
обмена с внешней памятью. Из-за огромного разно¬ 
образия внешних устройств и способов хранения ин¬ 
формации на внешних носителях единый универсаль¬ 
ный механизм обмена отсутствует. В каждом языке 
определяется своя, в известной мере универсальная 
файловая система, которая при реализации модели¬ 
руется на реальной файловой системе конкретной 
операционной системы. 

Поскольку в язык Форт легко включать новые 
слова-команды, то надобность в стандартных уни¬ 
версальных развитых средствах обмена отпадает. 
В каждой реализации можно ввести такие средства 
исходя из особенностей и возможностей применяемых 
для данной ЭВМ файловой системы и конкретных внеш¬ 
них устройств. Вместе с тем желательно иметь меха¬ 
низм, обеспечивающий по крайней мере перенос и хра¬ 
нение на машинном носителе программных текстов на 
языке Форт. Исходя из этого стандарт предусматривает 
элементарнейшую файловую систему, которая легко 
реализуется в любой конкретной файловой системе или 
непосредственно через драйверы внешних устройств 
(магнитных дисков). 

В языке Форт применяется механизм виртуальной 
внешней памяти, состоящей из блоков по 1 К байт каж¬ 
дый. Блок идентифицируется номером — числом в диа¬ 
пазоне от 1 до 32767. В адресном пространстве форт- 
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системы выделяется память под буферный пул, рассчи¬ 
танный на одновременное хранение одного или более 
блоков. Каждый буфер помимо памяти для хранения 
собственно блока данных содержит номер блока 
и признак его измененности. 

Слово ВЕГЕГЕК (буфер), получив номер блока, 
ищет свободный буфер в пуле и возвращает его адрес, 
записывая в служебную ячейку буфера переданный 
номер блока. Тем самым найденный буфер приписыва¬ 
ется данному блоку, однако содержимое буферной па¬ 
мяти пока остается прежним. Если свободного буфера 
не оказалось, то аналогичным образом используется 
один из занятых. Если при этом в служебной ячейке 
буфера был установлен признак измененности, то 
данные из буферной памяти переписываются во внеш¬ 
нюю, они заменяют там прежнее содержимое соответ¬ 
ствующего блока. 

Слово ВЕОСК (блок) аналогично по использованию 
слову ЕШРРЕК. за исключением того, что перепись 
данных из внешней памяти производится в приписан¬ 
ный данному блоку буфер. Разумеется, если данный 
блок уже находится в буферном пуле, то переписи дан¬ 
ных не происходит, и слово ВЕОСК возвращает адрес 
этого буфера. 

Наконец, слово 11РОАТЕ (изменить) устанавливает 
признак измененности последнего блока, к которому 
было адресовано обращение через слово ВЕОСК или 
В 1,1 Г Г Е К . Таким образом, впоследствии этот блок будет 
автоматически переписан во внешнюю память. 

При реализации обмена с внешней памятью в каче¬ 
стве буферного пула обычно используется связный 
участок оперативный памяти. Пусть его начало зада¬ 
ется константой ЕІК.8Т , а конец — адрес байта, сле¬ 
дующего за последним,— константой ЫМІТ. (Если 
пул располагается вплотную к концу адресного прост¬ 
ранства, то этот следующий адрес равен нулю!) Буфера 
в пуле располагаются подряд, каждый начинается двух¬ 
байтной ячейкой, в которой записывается номер при¬ 
писанного блока, причем старший разряд используется 
под признак измененности. Далее идет буферная память 
для блока размером 1024 байта, завершается буфер 
еще одной служебной ячейкой, в которой записан ноль 
(ее назначение указано в и.2.8). Пусть переменные 
РКЕѴ и ШЕ указывают на текущий используемый 
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буфер и следующий, который будет выдан при запросе 
на свободный буфер. Определим слово + ВIIР , которое 
вычисляет адрес буфера, следующего в пуле за пере¬ 
данным, и возвращает признак несовпадения его с те¬ 
кущим: 

і +вцр I АІ -> А2,Р ) 1024 ♦ 4 + 

ОЦР ииіт - ІР ОЯОР РІВ5Т Т НЕ N 
ОЦР Р РЕ V « - I 

Пусть служебные слова КВЬК А,Ы — и \ѴВЬК До¬ 
выполняют чтение блока с указанным номером в задан¬ 
ную область оперативной памяти и запись из нее. Тогда 
с учетом принятых условий слова, выполняющие работу 
с внешней памятью, можно задать так: 

і ВЦРГЕА ( N —> А ПРИПИСАТЬ БЛОКУ N БУІЕР) 

ОБЕ « 01ІР >А ( ВЕРНЕМ ЭТОТ БУІЕР) 

ВЕ61N +ВГ)Р ЦНТП. ІІ5Е ! ( УСТАНАВЛ.СЛЕДУЮЩИЙ) 

К* • 0< < ПРИЗНАК ИЗМЕНЕННОСТИ?) 

ІР Аі 2 * Аі і 32747 АНО ЫВЬК ТНЕМ 
Ві ! ( ПРИПИСАЛИ НОВОМУ БЛОКУ) 

АІ РАЕѴ ! А> 2» | 

■ ЭЮСК ( М—>Аі АЙРЕС БУІЕРА С ДАННЫМИ БЛОКА) 

>А РАЕѴ • ОЦР Ві - ОЦР ♦ ( ТЕКУЩИЙ - ТОТ ІЕ7) 

ІР I НЕТ) ВЕБІН +ВЧР 0* 

ІР 0А0Р АІ ВиРРЕА СЫР АІ АВЬК 2- ТНЕН 

оир і аі - оир’ + о- иита оор раеѵ « 

ТНЕИ В> СКОР 2* I 

I ЦРОАТЕ ( -» РАЕѴ ■ I 3274В ОА РАЕѴ I ! | 

Для записи всех измененных буферов во вне ш нюю 
память служит слово 5АѴЕ-ВІІРРЕК8 (сохранить 
буфера): 

і ВАѴЕ-ВІІРРЕАБ < —> ) 

инп РІВВТ 00 I і 3274В АНО 
ІР I і 32747 АНО вир I ! 

I 2+ БИАР ИВСК ТНЕН 
102В 41.00? ; 

При исполнении слова 8АѴЕ-ВІІРРЕК5 все буфера 
остаются приписанными прежним блокам. Слово РЁІІ5Н 
(очистить) переписывает все исправленные блоки во 
вне ш нюю память и освобождает буфера. Многие реали¬ 
зации имеют слово ЕМРТУ-ВІІРРЕКВ (опустошить 
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буфера), которое освобождает буферный пул, не пере¬ 
писывая исправленные блоки: 

1 ЕНРТУ-ВІІЕГЕВЗ ( -> I 

ЫИІТ РІЯЗТ ВО О I • ! 1 028 +Ю0Р ; 

I П.Ц5Н ( —> 1 ЗАѴЕ-ВиГГЕРЗ ЕКРТѴ-ВиррЕЯЗ | 

Внешняя память форт-системы в основном исполь¬ 
зуется для хранения форт-текстов. Блок вне ш ней 
памяти с форт-текстом называется экраном и условно 
разбивается на 16 строк по 64 литеры в каждой. Такой 
формат экрана сложился традиционно и закреплен 
в стандарте. 

Программист создает и исправляет экраны во внеш¬ 
ней памяти, используя встроенный редактор форт-систе- 
мы. Как и в случае встроенного ассемблера, стандарт 
не определяет конкретный вид и состав его команд, 
поскольку это в значительной степени определяется 
функциональными возможностями и характеристиками 
конкретных терминалов и средствами работы с ними. 
Обычно слова-команды текстового редактора составля¬ 
ют отдельный список слов с именем ЕОІТОК (редак¬ 
тор), базирующийся на списке РОКТН. Для распечатки 
редактируемого экрана на терминале чаще всего ис¬ 
пользуют слово ІЛ8Т (распечатать), которое, кроме 
того, сохраняет номер экрана в служебной переменной 
8СК: 


і ивт < м — > ) сир зся > 
ся .■ экран * оцр . всоск 
и о со сир і 64 * ♦ 

СК I 3 .Я 8РАСЕ 64 ТУРЕ ШОР СЯОР | 

Вначале печатается номер данного экрана, затем его 
строки. Перед каждой строкой печатается ее номер — 
число в диапазоне от 0 до 15. По завершении редакти¬ 
рования исправленные экраны можно записать во внеш¬ 
нюю память словом РБС18Н . 

2.8. Интерпретация входного потока 

Собственно работа форт-системы заключается 
в распознавании и исполнении слов-команд, которые 
программист вводит с терминала. Ввод осуществляется 
построчно: набрав нужный текст, программист нажи¬ 
мает специальную управляющую клавишу, сообщая тем 
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самым о завершении ввода. Форт-система размещает 
введенный текст в специальном буфере для ввода с тер¬ 
минала, который располагается в адресном простран¬ 
стве оперативной памяти. Адрес начала этого буфера 
дает стандартное слово ТІВ (сокращение от ТЕХТ 
ШРЕІТ ІШРРЕК. — буфер для ввода текста), его длина 
хранится в стандартной переменной #ТІВ . Данный 
буфер представляет собой входной поток, из которого 
слово \ѴО К О выбирает слова. По исчерпании входного 
потока форт-система вводит в этот буфер новый текст, 
получаемый от программиста. При возникновении 
какой-либо ошибочной ситуации форт-система прекра¬ 
щает дальнейшую интерпретацию текущего содержи¬ 
мого этого буфера и, выдав соответствующее сообщение 
программисту, заполняет буфер новым текстом, который 
после этого вводит программист. 

Альтернативой вводу текста с терминала является 
ввод из вне ш ней памяти форт-системы. Переключением 
входного потока на внешнюю память и обратно на 
терминал управляет стандартная переменная ВЬК 
(сокращение от ВЬОСК — блок), значение которой 
проверяется каждый раз в слове \ѴСЖО . Если это нуль, 
то в качестве входного потока служит буфер ТІВ , в про¬ 
тивном случае это значение рассматривается как номер 
блока внешней памяти, который используется как вход¬ 
ной поток (этот блок переносится в оперативную память 
словом ВЕОСК ). Текущая позиция во входном потоке 
хранится в стандартной переменной >Ш (от Ш — 
вход) и в случае ввода с терминала изменяется в пре¬ 
делах от 0 до значения #ТІВ , а при вводе из вне ш ней 
памяти — в диапазоне от 0 до 1024. 

Обычно конец входного потока в оперативной па¬ 
мяти (отмечается нулевым кодом (именно для этого 
в буферном пуле после памяти для данных блока резер¬ 
вируется еще одна ячейка). Слово \УОКЕ) , «натыкаясь» 
на нулевой код, возвращает в качестве результата 
пустую строку с нулевым значением счетчика литер, 
при этом в список РОКТН включается словарная статья 
для такого «пустого» слова. Оно имеет признак немед¬ 
ленного исполнения и поэтому всегда исполняется 
назависимо от текущего состояния текстового интер¬ 
претатора. Его исполнение состоит в прекращении 
интерпретации данного входного потока и тем самым 
позволяет избежать дополнительных проверок на ис- 
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черпание. Обычно в реализациях языка Форт опреде¬ 
ляется слово ШТЕК.РК.ЕТ (интерпретировать), выпол¬ 
няющее интерпретацию текущего входного потока. 
Оно представляет собой бесконечный цикл по вводу 
и исполнению (или компиляции) слов: 

ІМТШКЕТ ( —> ) БЕБ 1N Ві. МОРО РІМО 
■’ОЦР ІР < ПРОВЕРИТЬ ПРИЗНАК ІММЕОІАТЕ) 

1« ІР ЕХЕСиГЕ 

ЕББЕ 5ІАТЕ і ІР , ЕБЕЕ ЕХЕСІПЕ ТНЕМ 
ТНЕЫ 

ЕС5Е ( МОЖЕТ БЫТЬ ВТО ЧИСЛО?) 

МІШВЕП НРБ В 1» 

ІР ССОМРІБЕІ 2БІТЕКАБ 
ЕБ5Е ОКОР Е СОМРI І_Е I БІТЕКАБ ТНЕЧ 
ТНЕМ АВА 2 N і 

В приведенном примере конструкция ВЕОШ-АОАШ 
определяет бесконечный цикл. 

Слово АОАШ выполняет безусловный переход на 
начало цикла. 

В случае если очередное введенное слово не найдено 
в словаре, исполняется слово ХШМВЕЙ, которое 
пытается воспринять его как запись числа в соответст¬ 
вии с текущим основанием системы счисления — зна¬ 
чением переменной ВАЗЕ . Если это удалось, то слово 
КТПѴІВЕК возвращает значение числа как значение 
двойной дайны и дополнительно в переменной БРЙ 
сообщает позицию десятичной точки в нем (- 1 , если 
точки в записи числа не было). В противном случае 
возникает ошибочная ситуация «Слово не найдено», 
и интерпретация прекращается. Если же введенное 
слово оказалось числом, то в зависимости от наличия 
в нем точки оно рассматривается как число двойной 
или одинарной точности. Таким образом, пустое сло¬ 
во — ограничитель входного потока — прекращает 
исполнение слова ІХГГЕКРЙЕТ и возобновляет испол¬ 
нение слова, его вызвавшего: 

і X ( —> ) К> ОПОР і ІММЕОІАТЕ 

Здесь X обозначает пустое слово. 

Таким образом, работу форт-системы можно задать 
таким бесконечным циклом: 
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! ЮРТ-СИСТЕМА ( —> ) 


ЗЕ61N СК .■ >■ ( ПРИГЛАШЕНИЕ И ВВОДУ) 

ТIВ 80 ЕХРЕСТ I ВВЕСТИ ТЕИСТ С ТЕРМИНАЛА) 

ВРАН в *ТІВ 1 ( УСТАНОВИТЬ ЕГО ДЛИНУ) 

О ТIВ «ТIВ в ♦ С I УСТАНОВИТЬ ОГРАНИЧИТЕЛЬ) 

О МИ ' О ВІК ' ( УСТАНОВИТЬ ВХОДНОЙ ПОТОК) 

ІЫТЕЯРНЕТ I ИНТЕРПРЕТИРОВАТЬ ВВЕДЕННЫЙ ТЕИСТ) 

5ТАТЕ е 0« ІР ОИ" ТНЕН I ПОДТВЕРІДЕНИЕ) 

АБА ІН | 

Для переключения входного потока на внешнюю 
память стандарт предусматривает слово ШАО (за¬ 
грузить) : 

! ЮАО ( Н: НОМЕР-/ ИНТЕРПРЕТИРОВАТЬ ЗИРАН) 

>ІИ е Ж ВЬИ 6 >Я ( СОХРАНИТЬ ТЕКУЩИЙ) 

ВЬН ' О >ІН ! ( УСТАНОВИТЬ НОВЫЙ) 

ІНТЕЯРЯЕТ ( ПРОИНТЕРПРЕТИРОВАТЬ ЕГО» 

Р> ВЬК ' Я> >1Ы ‘ І ( ВЕРНУТЬСЯ И ПРЕЖНЕМУ) 


Параметром слова ШАО является номер экрана (бло¬ 
ка) для интерпретации. Очевидно, что приведенное 
нами выше определение допускает рекурсивное исполь¬ 
зование слова ШАО внутри экранов во внешней 
памяти. 

Некоторые реализации предусматривают слово ТНЯИ 
(сквозь) для последовательной интерпретации диапа¬ 
зона экранов: 

1 ТНЯІ) < N1,N2 ---> ИНТЕРПРЕТИРОВАТЬ ЭКРАНЫ) 

( ОТ N1 ДО N2 ВКЛИЧИТЕЛЬНО) 

1+ БИАР 00 I ЮАО ЮОР і 

Для продолжения интерпретации следующего экрана 
часто используется слово -► ? логически сцепляющее 
следующей экран с данным: 

! —> < —> ) вьк і о= 

АВОЯТ" НЕДОПУСТИМОЕ ИСПОЛЬЗОВАНИЕ —>” 

О МЫ ' ВІК < 1* ВЕК 1 | 1ММЕ01АТЕ 

В этом случае интерпретации сцепленных экранов 
нужно «загрузить» словом ШАО только первый из этих 
экранов. 
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2.9. Целевая компиляция 

и модель форт-системы 

Решая задачу на языке Форт, программист рас¬ 
ширяет исходный набор слов-команд форт-системы, 
добавляя к нему новые определения. Его конечной 
целью является определение некоторого «главного» 
слова, исполнение которого и решает поставленную 
задачу. Главное слово можно запустить на счет через 
текстовый интерпретатор форт-системы, если ввести 
имя слова в качестве очередной форт-команды. Во 
время исполнения этого слова используются ранее 
введенные определения вспомогательных слов и (прямо 
или косвенно) ряд слов исходной форт-системы. 

Во многих форт-системах предусмотрена возмож¬ 
ность сохранения текущего состояния словаря во внеш¬ 
ней памяти в качестве двоичного форт-модуля. Это 
позволяет при последующих обращениях к данной за¬ 
даче сразу начинать счет, запуская на исполнение ее 
главное слово. При таком подходе естественно возни¬ 
кает задача минимизации используемых средств 
и построения конечного программного продукта, уже 
не зависящего от форт-системы. Такую задачу позво¬ 
ляет решать пакет целевой компиляции, который явля¬ 
ется ценным инструментальным средством при созда¬ 
нии прикладного программного обеспечения на языке 
Форт. 

Целевая компиляция позволяет создавать единый 
независимый рабочий модуль исходя из комплекса 
взаимосвязанных определений на языке Форт. Состав¬ 
ной частью этого комплекса является запись опреде¬ 
лений всех стандартных слов, которая образует модель 
форт-системы и над которой «надстраиваются» опреде¬ 
ления данной задачи. В тексте модели обычно выделя¬ 
ется запускающая часть, которая обеспечивает ини¬ 
циирование работы и переход к исполнению главного 
слова в данном комплексе определений. Если в реали¬ 
зации есть пакет целевой компиляции, его часто исполь¬ 
зуют для раскрутки самой форт-системы исходя из 
некоторой ее начальной версии. В этом случае главным 
является приводившееся вы ш е слово ФОРТ-СИСТЕМА, 
которое выполняет бесконечный цикл по вводу вход¬ 
ного потока с терминала и его текстовой интер¬ 
претации. 
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Входной текст для целевой компиляции помимо 
собственно текста на языке Форт содержит еще ряд 
слов-директив, позволяющих выполнять компиляцию 
за один проход по тексту. Эти директивы включают, 
в частности, средства предописания слов для того, 
чтобы некоторые слова можно было использовать рань¬ 
ше их определения (например, чтобы в запускающей 
части, с которой обычно начинается входной текст, 
указать имя главного слова, которое будет определено 
только в конце). Важной возможностью является уп¬ 
равление построением целевой словарной статьи: не¬ 
которые или даже все статьи можно создать без заго¬ 
ловка, значительно сократив за счет этого размер 
рабочего модуля. Кроме того, язык директив обычно 
содержит средства для диагностики, распечатки карты 
создаваемого модуля, построения таблицы перекрест¬ 
ных ссылок, сбора и распечатки статистической инфор¬ 
мации об использовании тех или иных слов. 

Пакет целевой компиляции представляет собой 
отдельно загружаемый пакет, написанный на языке 
Форт. В начале работы он резервирует область памяти 
для целевого адресного пространства, в которой строит 
двоичный код конечного программного продукта по 
мере обработки входного текста. После завершения 
целевой компиляции построенный модуль может быть 
выгружен во вне ш нюю память для дальнейшего исполь¬ 
зования в качестве независимого модуля в соответст¬ 
вии с заложенными в него соглашениями о связях. 

В состав пакета целевой компиляции входят целе¬ 
вой ассемблер и целевой компилятор. Целевой ассемб¬ 
лер отличается от обычного встроенного ассемблера 
форт-системы только тем, что строит машинный код 
не в инструментальном адресном пространстве от 
текущей вершины словаря, которая дается словом 
НЕКЕ (здесь), а в целевом. Указатель в целевом адрес¬ 
ном пространстве обычно обозначается словом ТНЕКЕ 
(там) внутри самого пакета, который пользуется обоими 
этими указателями. Для того чтобы получить целевой 
ассемблер из исходного инструментального, как пра¬ 
вило, достаточно оттранслировать его в контексте 
других определений компилирующих слов ( , , С, , 
АЁЕОТ и т. д.), которые выполняют те же действия, 
но в целевом адресном пространстве, а не в инструмен¬ 
тальном. 
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Задача целевого компилятора состоит в построении 
высокоуровневого шитого кода в целевом адресном 
пространстве, причем все ссылки на статьи, включая 
и ссылки на все стандартные форт-слова, должны также 
относиться к этому пространству. Для решения этой 
задачи обычно поступают следующим образом. В списке 
слов целевой компиляции переопределяют все стан¬ 
дартные определяющие слова (:, ССЖ5ТАМТ, ѴАК.І- 
АВЬЕ, ССЮЕ и т. д.) таким образом, чтобы они строили 
две статьи: одну стандартным образом, но в целевом 
адресном пространстве, а другую — специальным 
образом — в инструментальном. Исполнение инст¬ 
рументальной статьи компилирует ссылку, соответ¬ 
ствующую целевой статье данного слова, как очередной 
элемент шитого кода на вершину целевого словаря. Об¬ 
рабатывая стандартным текстовым интерпретатором 
высокоуровневое определение в контексте таких инстру¬ 
ментальных определений, мы получаем в целевом 
пространстве соответствующий ш итый код. Аналогичным 
образом должны быть переопределены и все слова 
с признаком немедленного исполнения, реализующие 
структуры управления и выполняющие какую-либо 
компиляцию во время обработки определений ( ІГ, 
ТЕ[ЕN ,; и т. д.). Эти слова в отличие от их стандартных 
прототипов должны компилировать статьи и переходы 
для целевого адресного пространства, а не инструмен¬ 
тального. Совокупность перечисленных определений 
и образует целевой компилятор. 

При построении конечного программного продукта 
путем целевой компиляции возможно существенное 
уменьшение его размера. Кроме уже упоминавшегося 
исключения из словарных статей ненужных заголов¬ 
ков целевая компиляция позволяет вести учет всех 
используемых данной задачей слов и автоматически 
собрать для нее специальное ядро поддержки, состоя¬ 
щее только из тех слов, которые в ней действительно 
используются. При этом возможна еще большая опти¬ 
мизация за счет непосредственной подстановки опре¬ 
делений в место их вызова для тех слов, которые 
оказались использованными только один раз. Некото¬ 
рые пакеты целевой компиляции дают возможность 
довести такую подстановку до уровня машинного кода, 
при этом высокоуровневые определения рассматри¬ 
ваются как своеобразные макроопределения. После 
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выполнения такой макрогенерации результирующий 
машинный код уже не требует адресного интерпрета¬ 
тора и представляет собой линейную последователь¬ 
ность непосредственно исполняемых машинных команд. 

Именно этот прием был применен, например, при 
создании известного пакета машинной графики ГРА¬ 
ФО РТ для персонального компьютера фирмы ИБМ 
и компьютеров фирмы «Эппл» (Арріе, США). Срав¬ 
нительно большой объем получившегося ма ш инного 
кода компенсировался чрезвычайно высоким быстро¬ 
действием, недостижимым для традиционных языков 
программирования. В то же время совершенно очевид¬ 
но, что разработать и отладить программу такого 
объема на языке ассемблера вручную практически 
невозможно. 

Описанный подход к целевой компиляции применим 
и в том случае, когда целевая ЭВМ, для которой строит¬ 
ся конечный программный продукт, отличается по своей 
архитектуре и системе команд от инструментальной. 
В этом случае изменения касаются только целевого 
ассемблера и определений в машинном коде, которые 
должны отвечать системе команд целевой ЭВМ. Такое 
использование целевой компиляции в качестве инст¬ 
рументального кросс-средства все чаще имеет место 
при создании программного обеспечения встроенных 
микропроцессоров и специализированных микропроцес¬ 
сорных устройств на их основе. 



Глава 3 

Примеры программных разработок 


В этой главе приведены примеры реализации 
отдельных программных средств — небольших удобных 
расширений (инфиксная форма записи, локальные 
переменные, конструкция «переключатель», векторное 
поле кода) — и целых инструментальных систем на 
базе языка Форт. Основное внимание уделено методо¬ 
логическим аспектам использования Форта как рас¬ 
ширяемого языка. Все приведенные примеры отражают 
опыт использования Форта в конкретных разработках. 

3.1. Средства отладки форт-программ 

Программы на языке Форт — определения 
слов — кодируются и вводятся в ЭВМ методом «снизу 
вверх», т. е. начиная с элементарных, использующих 
только стандартные слова форт-системы, и кончая 
определением главного слова, использующего уже 
введенные. Такой порядок естественным образом пред¬ 
полагает немедленную отладку вводимых определений, 
поскольку определение готово к исполнению сразу же 
после ввода. Отладка облегчается тем, что механизм 
взаимодействия модулей упрощен до предела: через 
стек данных, который программист может сам запол¬ 
нить значениями параметров перед вызовом отлажива¬ 
емого слова. 

Для распечатки текущего состояния стека данных 
и стека возвратов многие реализации имеют слова 
8. и К. . В сочетании со словом ОІІМР , которое рас¬ 
печатывает область памяти, и словом ? 

I ? ( А-> ) 1 . | 

которое печатает значение, находящееся по указанному 
адресу, эти слова создают богатые возможности для 
диалоговой отладки форт-слов. 


85 



То обстоятельство, что в основе языка Форт лежит 
интерпретатор и при исполнении каждого слова управ¬ 
ление проходит через точку КЕХТ адресного интерпре¬ 
татора форт-системы, дает дополнительные возмож¬ 
ности для организации автоматического слежения за 
исполнением скомпилированных слов. Программист 
может организовать динамическую подмену точки 
і\ ! ЕХТ на такую, которая, выполняя те же действия по 
переходу к интерпретации очередной ссылки, выпол¬ 
няет и заданные отладочные действия. Поскольку 
в момент исполнения точки NЕXТ через адрес поля кода 
имеется доступ к адресу поля имени словарной статьи, 
то отладочные действия можно формулировать, зада¬ 
вая имена интересующих программиста слов. 

Например, по специальному слову СЖ-КЕХТ (ПРИ- 
СЛЕД) строится список слов (в виде списка адресов 
компиляции), подлежащих отслеживанию. В част¬ 
ности, его можно задать, как все слова, определения 
которых расположены в словаре выше некоторого адре¬ 
са. Для всех этих слов указываются отладочные дей¬ 
ствия, состоящие, как правило, из распечатки имени 
слова и стека данных в момент перехода к его исполне¬ 
нию. В некоторых случаях можно проводить анализ 
стека возвратов и отслеживать возврат из определений, 
распечатывая результаты из стека данных на момент 
возврата. Специальные слова ТКАСЕ-СЖ (СЛЕЖ-ВК.Л) 
и ТКАСЕ-ОГР (СЛЕЖ-ВЫКЛ) включает и выклю¬ 
чают механизм отладочного слежения, подменяя 
или восстанавливая точку NЕXТ адресного интер¬ 
претатора. 

С помощью этого же механизма можно ввести защи¬ 
ту от зацикливания, например подсчитывая в точке 
ХШХТ число исполненных слов и возобновляя диалог 
при достижении некоторого заданного значения этого 
счетчика. Если данная ЭВМ имеет встроенный таймер 
и операционная система позволяет обрабатывать асин¬ 
хронные выходы по истечении заданного интервала 
времени, то этот механизм можно также использовать 
для предохранения от зацикливания. В процедуре 
обработки выхода по исчерпанию временного интервала 
нужно подменить точку КЕХТ на такую, которая выпол¬ 
нит возврат к диалогу с программистом. При этом 
программист может получить исчерпывающую инфор¬ 
мацию о месте такого «прерывания от таймера». 
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Другой полезный механизм отладочного слежения 
позволяет переключаться на диалог с программистом 
в момент исполнения заданного слова и реализуется 
через подмену поля кода в заданной словарной статье. 
Для выполнения такой подмены нужно определить 
специальное слово, например, 5ТОР (стойте!), которое 
выбирает имя слова из входного потока и засылает 
в поле кода его словарной статьи адрес специального 
кода. Прежнее значение поля кода сохраняется в спе¬ 
циально резервируемой для этого ячейке словаря. 
Новый код для подмененного таким образом слова 
состоит в переключении на текстовую интерпрета¬ 
цию входного потока, так что все необходимые отла¬ 
дочные распечатки и установки значений программист 
задает непосредственно в диалоге. Слово СО (идите!) 
завершает диалог и продолжает исполнение программы, 
при этом отлаживаемое слово, вызвавшее останов, 
исполняется в прежнем виде (для этого используется 
сохраненное «настоящее» значение из его поля кода). 
Можно предусмотреть специальное слово для продол¬ 
жения работы без исполнения рассматриваемого слова. 

Описанные механизмы, являясь достаточно просты¬ 
ми, вместе с тем существенно облегчают отладку слож¬ 
ных программ. Их сильная зависимость от реализации 
не позволяет сделать эти определения переносимыми. 
Вместе с тем именно эта черта позволяет реализовать 
такие отладочные средства максимально удобным для 
программиста способом с учетом конкретных особен¬ 
ностей данной реализации и ее операционного окру¬ 
жения. 

Удобным вспомогательным средством, позволяющим 
быстро находить место останова в терминах входного 
текста на языке Форт, является символьная распечатка 
шитого кода. Поскольку скомпилированная ссылка 
представляет собой адрес поля кода словарной статьи, 
то по ней через слово > КАМЕ можно вычислить адрес 
поля имени и напечатать это имя словом ГО. : 

I ів. ( нра —» соинт зі айв туре 5РАСЕ | 

Слово СОІЖТ в качестве счетчика длины выдает зна¬ 
чение первого байта поля имени; поскольку старшие 
разряды этого байта используются под специальные 
признаки, то необходимо специальное преобразование, 
определяемое представлением счетчика, чтобы получить 
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истинную длину поля имени. Константа 31 как огра¬ 
ничение на длину имени слова дается стандартом языка. 

В программе распечатки последовательности ссылок 
надо предусмотреть специальную обработку некоторых 
адресов, вслед за которыми скомпилирована не ссылка 
на очередную статью, а некоторое другое значение. 
Такими «особыми» ссылками в стандарте языка яв¬ 
ляются слова для выполнения переходов ВКАІМСН и 
7ВКА1ЧСН, для реализации циклов (БО) , (ЬООР) и 
( +ЬООР) , для исполнения литералов ЫТ и 2ІЛТ и 
некоторые другие. 

3.2. Инфиксная запись формул 

Для многих программистов трудным барьером 
на пути к овладению языком Форт оказывается исполь¬ 
зуемая в нем обратная польская форма для записи 
выражений. Опишем простую надстройку над языком 
Форт, которая позволяет записывать формулы в обыч¬ 
ной инфиксной форме с использованием скобок. Будем 
по-прежнему считать все элементы такого выражения 
(скобки, знаки операций и элементарные термы) отдель¬ 
ными форт-словами и разделять их при записи пробе¬ 
лами. Задача состоит в том, чтобы вычисления на стеке 
автоматически перегруппировывались исходя из инфик¬ 
сной формы записи. Например, чтобы вместо текста 
2 5 + 7 3 - * можно было писать ((2+5)*(7+ 
+ 3 ) ) . Внешние скобки нужны для того, чтобы от¬ 
мечать конец выражения. При желании это можно 
задавать и каким-нибудь другим способом. 

Для операций в инфиксной записи вводится понятие 
приоритета (старшинства), которое определяет порядок 
вычислений при отсутствии скобок. Приоритет обозна¬ 
чается целым числом, и операции с меньшим приорите¬ 
том выполняются после операций с большим приорите¬ 
том. Например, в выражении А+В/С подразумевается 
следующая расстановка скобок: (А+(В/С)), т. е. 
сначала выполняется деление и только потом сложе¬ 
ние, потому что приоритет деления выше приоритета 
сложения. В случае равных приоритетов, например 
в выражении А + В + С, будем выполнять операции 
слева направо: ((А+В) + С). Традиционно использу¬ 
емые приоритеты двухместных операций показаны 
в табл. 3.1. Все одноместные операции (АВ8, 1ЧЕОАТЕ, 
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Таблица 3.1. Приоритеты двухместных операций 


Приоритет 

2 

3 

4 

5 

6 

7 

8 

Операция 

ОК 

ХОК 

АКБ 

= 

< 

> 

+ 

/ 

МОБ 

** 


N07 и др.) имеют максимальный приоритет (обычно 9). 

Опишем вспомогательную структуру данных — стек 
ОПРЦ , элементами которого являются пары значений: 
приоритет операции и адрес кода, который ее вычисляет. 
Размер стека определяется максимальной глубиной 
вложенности формул, которую мы допускаем: СКЕАТЕ 
ОПРЦ НЕКЕ 2+ , 40 АЁЕОТ. Первым элементом 
в поле параметров слова ОПРЦ является указатель 
вершины этого стека (адрес первого свободного байта), 
далее зарезервирована память на 5 элементов по 4 бай¬ 
та (два значения) каждый. По аналогии со словами 
> К , К@ и К> определим слова для работы со стеком 
ОПРЦ: 


I >0ПРЦ ( А —-» ОПРЦ • ! 2 ОПРЦ ♦! | 

! ОПРЦ* С —> А) ОПРЦ I 2- в | 

і 0ПРЦ> < -> А) ОПРЦ» -2 ОПРЦ +! | 

Обработка операций в инфиксной форме состоит в том, 
что операция не выполняется, а помещается вместе со 
своим приоритетом на стек операций, выталкивая из 
него на исполнение все операции с мень ш им или равным 
приоритетом. В состоянии исполнения вытолкнутая 
операция исполняется, а в состоянии компиляции — 
компилируется. Предполагая, что в стеке ОПРЦ сна¬ 
чала размещается адрес поля кода для исполнения 
операции, а за ним приоритет, определим слово для 
такого выталкивания операций: 

I >0ПРЦ> ( N1 ПРИОРИТЕТ---) > >В ВЕВІЫ ОПРЦ* 

В* < ИОТ ИННЕ ОПРЦ) ОВОР ОПРЦ) < СРА) 

8ТАТЕ « ІР , Е15Е ЕХЕСЦТЕ ТНЕМ ВЕРЕАТ В) ОВОР | 

Теперь введем определяющие слова для двухместных 
и одноместных операций и переопределим через них 
стандартные арифметические форт-слова: 
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I 2-ОП ( Кі ПРИОРИТЕТ-)) >1И •>(!'( И.СРА) 

К> >ІН ! СКЕАТЕ^ ІНКЕВ1АТЕ I Н.СРА) , , 

00ЕЗ> ( РЕА-» 21 ( N, СРД) 

ж >в кі >опрц> в> в> >опрц >опрц ) 

1 1-ОП I -» ? 2-ОП I 

2 2-ОП ОВ 2 2-ОП ХОВ 3 2-ОП АЫО 4 2-ОП ■ 

3 2-ОП < 3 2-ОП > 6 2-ОП ♦ & 2-ОП - 

7 2-ОП § 7 2-ОП I 7 2-ОП НОВ 

1-ОП ИОТ 1-ОП АВ6 1-ОП ИЕВАТЕ 

В определении слова 2-ОП используется то обстоятель¬ 
ство, что код для исполнения данной операции обозна¬ 
чается словом, которое этим определяющим словом 
переопределяется. Поэтому перед тем как его имя будет 
выбрано из входного потока словом С К ЕАТ Е , текущая 
позиция во входном потоке запоминается на стеке воз¬ 
вратов и после исполнения слова ' (штрих) вновь 
устанавливается в то же положение для исполнения 
слова СКЕАТЕ. 

Переопределенные слова получают признак немед¬ 
ленного исполнения, чтобы описанные действия по пере- 
упорядочиванию вычислений выполнялись и во время 
компиляции, компилируя нужную последовательность 
операций. В заключение осталось переопределить круг¬ 
лые скобки, явно задающие порядок вычислений: 

і ( О >0ПРЦ I ІННЕОІАТЕ 
I ) 1 >0ПРЦ> 0ПРЦ> СКОР I ІМПЕОІАТЕ 

Открывающая скобка кладет на стек значение 0 — 
ограничитель для выталкивания операций. Закрываю¬ 
щая скобка выталкивает все операции до ближайшего 
ограничителя и удаляет его из стека. Переопределение 
открывающей скобки делает невозможным ее исполь¬ 
зование в прежнем смысле — как знака комментария. 
Поэтому программисту, вводящему такую надстройку, 
следует подумать и о решении этого вопроса. 

Развивая описанную надстройку дальше, определим 
простой входной язык с описаниями переменных и при¬ 
сваиваниями, которые записываются обычным образом. 
В качестве знака присваивания пусть используется 
слово : = , а в качестве разделителя операторов — 
слово ; . Если переменная использована как получатель 
присваивания (слева от знака : = ), то ее исполнение 
оставляет на стеке адрес значения; а если данная пере- 
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менная входит в правую часть присваивания, то ее 
исполнение кладет на стек само значение данной пере¬ 
менной. Для управления поведением переменных на¬ 
шего языка введем рабочую переменную ?ЗНАЧ, 
которая имеет значение 0 при обработке левой части 
присваивания и значение — 1 при обработке правой, 
и определим слово ПЕРЕМ для описания переменных 
нашего языка: 

ѴАК1АВІ.Е ?ШЧ 

I ПЕРЕИ СКЕЙТЕ 0 , В0Е8> ІСОМРЦЕ] ИТЕРА1. 

73НАЧ • ІР 8ТАТЕ « ІР СОИРЦЕ • Е1.8Е • ТНЕИ 

Т НЕ N | 1 ИНЕС I АТЕ 

Для записи присваиваний определим слова : - и ; 
через уже определенные скобки: 

і I» СС0МРИЕ1 I -1 73НАЧ ! | ІМИЕОІАТЕ 
I | СС0МРП.ЕЗ ) 8ТЙТЕ • ІР СОИРІІЕ 8МАР СОИРІІЕ ! 

ЕЬЗЕ ВИАР ! ТНЕМ О 73НАЧ ! ( ІНИЕВІАТЕ 

Слово : = кладет на стек ОПРЦ ограничитель для 
выталкивания операций и устанавливает переменную 
?ЗЕІАЧ на обработку правой части присваивания. Слово 
; выталкивает со стека ОПРЦ все накопившиеся там 
операции, в результате на вершине стека данных ока¬ 
зывается значение правой части. Непосредственно под 
ним располагается адрес переменной, оставленный 
левой частью данного присваивания. Слова 3\ѴАР 
и ! выполняют присваивание, причем в состоянии ком¬ 
пиляции они компилируются, а состоянии исполнения 
исполняются. В заключение переменная ?ЗНАЧ пере¬ 
устанавливается на режим обработки левой части 
следующего присваивания. 

Благодаря словам := и ; отпадает необходимость 
в дополнительных внешних скобках для всего выра¬ 
жения. Входной текст в описанном расширении выгля¬ 
дит вполне традиционно: 

ПЕРЕИ А ПЕРЕМ В 
А I* 10 | В I* 13 | 
Аі*(А*В)»<А-В)+2| 

и вместе с тем это текст на языке Форт! Такие операторы 
присваивания можно исполнять непосредственно или 
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включать в тело определений через двоеточие. Однако 
переопределение точки с запятой усложняет написание 
новых определений в таком расширении. Чтобы решить 
эту проблему, можно предусмотреть специальные сред¬ 
ства для определения новых слов, как и слова для вклю¬ 
чения комментариев. Описанный пример еще раз 
показывает, что средства, которые язык Форт предоста¬ 
вляет программисту, позволяют ему реализовать 
практически любые необходимые инструментальные 
надстройки, исходя из конкретных требований и осо¬ 
бенностей данной задачи и пожеланий пользователей, 
с ней работающих. 

3.3. Локальные переменные 

Стек данных как универсальное средство для 
передачи параметров и результатов между форт- 
словами имеет неоспоримые преимущества. Вместе с тем 
внутри определения он используется для промежуточ¬ 
ных вычислений и размещения значений, которые в них 
участвуют. Это вызывает определенные трудности для 
доступа к такому локальному значению, поскольку его 
положение относительно вершины стека постоянно 
меняется. 

Для упрощения работы желательно закрепить за 
локальным объектами внутри определения некоторые 
постоянные имена, через которые и осуществлять 
доступ к ним. 

Имеющийся в языке механизм описания переменных 
в данном случае не подходит, поскольку создает гло¬ 
бальные имена, тогда как требуется именовать локаль¬ 
ные объекты, учитывая при этом возможность рекурсив¬ 
ных вызовов. Поставленную задачу решает включение 
в работу дополнительного стека, отличного от стека 
данных. Локальные значения размещаются в этом 
стеке при входе в определение и убираются из него при 
выходе. 

На все время исполнения определения их положение 
относительно вершины стека остается постоянным, 
это позволяет организовать очень простой доступ к 
таким значениям. 

Простейшая надстройка над языком Форт, которая 
позволяет работать с локальными переменными, выгля¬ 
дит так: 
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100 АІЮТ НЕКЕ СОЧЕТАЩ 1.Р0 ( НАЧАЛО ЛОК.СТЕКА) 

ѴАКІАВІЕ І.Р ( ТЕКУЩАЯ ВЕРШИНА ЛОКАЛЬНОГО СТЕКА) 

: ІМІТ ( ->) СРО ІР ! | ІНІТ 

і ЮС ( НіСЧЕТЧИК-)) 1+ 2» І.Р « ОVЕВ - В11Р 1.Р ! ! | 

: ОНЮС ( ->) І.Р ( « ІР ♦! ; 

I «• ( ІЧі СМЕВ- >) СКЕАТЕ , ООЕ8> I РРА- >А) I ІР I ♦ 1 | 

1 !! ( Н>СПЕЯ->, СКЕАТЕ , 00ЕЗ> ( А,РГА->) I ІР I + ! | 

2 И II 4 II 12 6 II 13 В II 14 10 II 13 ( И Т.Д.) 

2 !! !1 4 !! !2 6 !! !3 В !! >4 10 !! !3 ( И Т.Д.) 

Вначале отводится область объемом 100 байт и адрес 
ее конца запоминается как константа ИРО. Эта область 
будет использоваться как локальный стек, растущий 
в сторону убывания адресов. Переменная ЬР хранит 
указатель на текущую вершину локального стека, ее 
инициализацию выполняет слово ШІТ, которое при¬ 
сваивает ей значение ЬРО. Слово ЬОС резервирует 
в этом стеке память на N двухбайтных значений, допол¬ 
нительно отводя еще одну ячейку, в которую засылает 
значение N — длину всей области. Обратное дейст¬ 
вие — освобождение памяти — выполняет слово ІЛЧІ.ОС , 
которое использует сохраненное значение N. Слова 
@@ и !! являются определяющими для двух рядов 
слов, выполняющих разыменование локальных объек¬ 
тов и присваивание им нового значения. Каждый 
локальный объект в пределах одного определения иден¬ 
тифицируется своим номером, который включен в имя 
операций разыменования и присваивания для работы 
с ним. В качестве примера рассмотрим определение 
слова 5ШѴ, переставляющего 5 верхних элементов 
стека данных в обратном порядке: 

: 51 МѴ < А,В,С,Д.Е->Е,В,С,В,А) 5 ЮС 

! 1 '2 !3 !4 '3 11 12 13 14 15 11Ж.0С ; 

Приведенная реализация локальных переменных 
предельно упрощена. Ее очевидным усовершенствова¬ 
нием является, например, введение контроля за пере¬ 
полнением и исчерпанием локального стека и включе¬ 
ние действий ЬОС и ІЖЬОС в семантику входа в высо¬ 
коуровневое определение и выхода из него; при этом под¬ 
счет числа локальных объектов может выполняться 
автоматически, аналогично определению адреса пере¬ 
хода в структурах управления. 

Можно пойти еще дальше и вместо прямой нумера¬ 
ции локальных объектов ввести их настоящее описание 
через соответствующее слово внутри определения через 
двоеточие с автоматическим переносом входных пара- 
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метров на локальный стек при входе в такое определе¬ 
ние. Словарная статья для имени локального объекта, 
которая строится по такому описанию, должна распо¬ 
лагаться несколько выше текущей вершины словаря 
и иметь признак немедленного исполнения. Ее действие 
состоит в компиляции обращения к соответствующему 
элементу локального стека. По завершении компиляции 
данного определения все такие временные статьи 
автоматически исключаются из словаря. 

Введение локальных переменных не только упрощает 
программирование, освобождая программиста от не¬ 
обходимости тщательно отслеживать все изменения 
на стеке, но и сокращает размер скомпилированной 
программы, поскольку из нее исчезают сложные после¬ 
довательности из слов ОѴЕК. , ОПР , КОТ , РІСК и 
других, обычно используемых для доступа к локальным 
значениям. Такое неожиданное сочетание приятного 
с полезным — одна из многих удивительных сторон 
языка Форт, которые открываются программисту при 
знакомстве с ним. 

3.4. Векторное поле кода 

В языке Форт с каждым словом-командой свя¬ 
зано некоторое действие, определяющее семантику 
данного слова. В словарной статье, которая является 
внутренним представлением форт-слова, это действие 
задано через поле кода. В случае косвенного шитого 
кода оно содержит адрес машинной программы, испол¬ 
нение которой и составляет действие данного слова. 
Эта программа образует исполняющую часть опреде¬ 
ляющего слова, через которое данное слово было 
создано, и параметризуется адресом поля параметров 
его словарной статьи. 

Описанный механизм является чрезвычайно мощ¬ 
ным и в то же время очень компактным в реализации. 
Вместе с тем и он может быть улучшен с учетом конкрет¬ 
ной цели. Заметим, что этот механизм предписывает 
исполнение одной и той же программы для всех случаев 
применения данного слова, в то время как в каждом 
случае слово употребляется в определенном контексте, 
и его исполнение, вообще говоря, зависит от этого 
контекста. Разумеется, анализ контекста можно вклю¬ 
чить в программу слова, если закодировать контекст 
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через дополнительный параметр или глабальную пере¬ 
менную. 

Именно в этом, например, заключается действие 
стандартного слова ЫТЕКАЬ, которое анализирует 
текущее состояние текстового интерпретатора через 
значение переменной 8ТАТЕ . Если это значение—* 
нуль (состояние исполнения), то это слово больше ниче¬ 
го не делает. При ненулевом значении (состояние 
компиляции) оно снимает значение с вершины стека и 
компилирует его как литерал на вершину словаря. 

Пример другого подхода дает описанная в п. 3.2 
реализация оператора присваивания в традиционной 
инфиксной форме записи. В зависимости от текущего 
значения переменной 73НАЧ, которое изменяется сло¬ 
вами :=и ;, слова, обозначающие переменные, остав¬ 
ляют на стеке либо адрес, либо значение данной пере¬ 
менной. 

Предлагаемое улучшение связано прежде всего 
с использованием переменных. В стандартном опреде¬ 
лении при исполнении переменной на стеке будет остав¬ 
лен адрес ячейки (поля параметров), в которой хранит¬ 
ся ее значение. Однако сам по себе этот адрес редко бы¬ 
вает нужен, обычно он используется либо для получения 
текущего значения переменной с помощью слова @ , 
либо для засылки в нее нового значения словом ! . 
Поэтому можно считать, что с переменной связано не 
одно действие, а три — получение текущего значения, 
засылка нового и получение адреса. Какое именно дей¬ 
ствие требуется в каждом конкретном случае, опреде¬ 
ляется контекстом. 

Введем слово (ЗСІАК (от СШАБІПТУ — величина), 
которое определяет новое слово с тремя описанными 
выше действиями. В словарной статье таких слов 
вместо одного поля кода создается три — по одному 
на каждое действие. Будем обозначать их адреса через 
ОСРА, ІСРА и 2СРА соответственно (рис. 3.1). За 
ними располагается ячейка, отведенная под текущее 
значение данной переменной, обозначим ее адрес через 
ОРРА. Если рассматривать такую структуру как обыч¬ 
ную словарную статью, то поле ОСРА является полем 
кода, а поля 1СРА,2СРА и ОРРА занимают поле пара¬ 
метров. Если в шитый код скомпилирован адрес ОСРА , 
то при исполнении соответствующего кода в качестве 
адреса поля параметров выступает адрес ІСРА . Анало- 
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гично для адреса 1СРА полем параметров служит 
2СРА , а для 2СРА — адрес ОРРА . Поэтому описанные 
выше три действия можно задать так: 

і ЗНАЧ БОЕВ > ( 1СРА->N1 ЗНАЧ) 4 * 8 | 
і ПРИСВ БОЕВ> ( Чі ЗНАЧ,2СРА-> 1 2* ! | 

I АИР БОЕВ> ( 0РРА->0РРА ) | 


Нетрудно увидеть, что действие АДР совпадает со 
стандартным действием для переменной, состоящим 
в том, что адрес поля параметров кладется на стек. 
Определим теперь слово СШАМ , используя слово 
ПРИСВ в качестве вспомогательного: 

: ОІІАЧ ( ->> СЯЕАТЕ І.АТЕЗТ ЧАНЕ> ОБР 8 ( КОД 2СРА) 

ПРИСВ 5ИАР 8 ( КОД 2СРА.К0Д 1СРА) , , 0 , 

БОЕВ> ( КОД ДЛЯ ОСРАІ 4 ♦ 6 ) 

Создающая часть этого определения использует поле 
кода создаваемой статьи как рабочую ячейку, из ко¬ 
торой сначала извлекается значение для 2СРА , заслан¬ 
ное туда словом СКРАТР, и затем значение для 1СРА , 
которое засылается туда словом ПРИСВ . Окончатель¬ 
ное значение в этой ячейке устанавливается словом 
ЭОЕ8> . Описание переменной через слово СШАХ 
выглядит так же, как описание обычной переменной: 
СШАК X . Однако теперь при исполнении слова X на 
стеке будет оставлено текущее значение переменной 
из ее поля ОРРА . Выполнение двух других действий 
задают слова ТО (предлог «в») и АТ (предлог «из») 
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: ТО 


2 * 5ТАТЕ • ІР , ЕІ.ВЕ ЕХЕСЦТЕ ТНЕМ | 

ИШЕОІАТЕ 

: АТ 4 ♦ 8ТАТЕ 4 ІЕ , ЕЕ5Е Е ХЕСЕІТЁ* ТНЕИ | 

ІИИЕВІАТЕ 

Эти слова имеют признак немедленного исполнения 
и в состоянии компиляции (внутри определения через 
двоеточие) компилируют коды 1СРА и 2СРА для сле¬ 
дующего слова. В состоянии исполнения соответствую¬ 
щие действия исполняются. Теперь, чтобы присвоить 
переменной X значение 100, нужно выполнить текст 
100 ТО X, а для получения адреса — текст АТ X. 

Такое усовершенствование, как и введение локаль¬ 
ных переменных, не только упрощает программирова¬ 
ние, но и сокращает объем скомпилированного кода. 
Из текста программ исчезает слово (а>, применявшееся 
для разыменования адреса переменной. В результате 
вместо двух ссылок — на поле СРА для переменной 
и статью для @ — в пт итом коде присутствует только 
одна ссылка (на поле ОСРА). Аналогично в случае 
присваивания вместо двух ссылок (на поле СРА пере¬ 
менной и на статью для !) компилируется одна (на поле 
1СРА). В практических реализациях программы для 
действий ЗНАЛ и ПРИСВ обычно задаются не в виде 
высокоуровневых определений, а непосредственно в 
машинном коде данной ЭВМ через встроенный ассемб¬ 
лер форт-системы. В этом случае описание переменных 
через слово ОРШЧ не только сокращает размер про¬ 
граммы, но и повышает ее быстродействие, поскольку 
отпадает необходимость в исполнении действия 1ЧЕХТ 
для интерпретации еще одной ссылки. 

По аналогии со словом 011А1Ч определим слово 
ѴЕСТ (от ѴЕСТОК — вектор), которое также создает 
словарную статью с векторным полем кода из трех 
элементов: 

I ѴЕСТ < ->) О С0И5ТАИТ 

1АТЕ5Т МАНЕ> ЙЧР « , ( КОЙ 2СРА) 

ПРИСВ 0Ш> I ( 1СРА) 5МАР >БООѴ ' [ } АВОКТ , 

00Е5 > ( КОЙ ДЛЯ ОСРА) 4 + в ЕХЕСЦТЕ | 

Код для поля 2СРА указывает на исполняющую часть 
из определяющего слова СО]Л$ТА]ЛТ , поле 1СРА такое 
же, как и для слова ОІІА1Ч, оно выполняет при¬ 
сваивание нового значения. Наконец, поле ОСРА, 
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которое задается исполняющей частью определения 
ѴЕСТ, исполняет слово, адрес поля кода которого 
является текущим значением поля ОРРА . Для получе¬ 
ния текущего значения и засылки нового по-прежнему 
используются определенные ранее слова АТ и ТО. 
Вот пример на использование этих слов: ѴЕСТ V ' БИР 
ТО V . Теперь исполнение слова V равносильно испол¬ 
нению БОР. Таким образом, слова, определенные через 
ѴЕСТ , можно рассматривать как переменные, значе¬ 
ниями которых являются другие слова. Для исполнения 
слова — текущего значения такой переменной — доста¬ 
точно указать только имя этой переменной без дополни¬ 
тельных операций @ и ЕХЕСЕГГЕ. Текст АТ Ѵ> ХАМЕ 
ГО. распечатывает имя слова — текущего значения V . 
Разумеется, при такой распечатке предполагается, что 
само это слово имеет обычную структуру словарной 
статьи. 


3.5. Выбор по целому 

Выбор по целому — распространенная конструк¬ 
ция в языках программирования. Она является обоб¬ 
щением условного оператора, который осуществляет 
выбор между двумя последовательностями операто¬ 
ров — частью «то» и частью «иначе» — по логическому 
значению (ИСТЕША или ЛОЖЬ) условия. В конструк¬ 
ции выбора по целому в качестве значения условия 
выступает целое число, и выбор осуществляется между 
несколькими альтернативными ветвями, каждая из 
которых соответствует определенному значению усло¬ 
вия или некоторому множеству таких значений. Как 
правило, множества значений условия для разных вет¬ 
вей не должны пересекаться. Обычно эти множества 
задают явным перечислением отдельных значений или 
указанием диапазона для них. Разберем два варианта 
реализации выбора по целому. В первом используется 
переключатель, во втором — вложенные условные опе¬ 
раторы. 

В случае реализации через переключатель каждая 
ветвь должна задаваться отдельным форт-словом. 
Пусть имеется несколько ветвей, каждая из которых 
задается своим порядковым номером. Из адресов ком¬ 
пиляции этих ветвей в соответствии с их порядковыми 
номерами строится вектор-переключатель, и нужная 
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ветвь выбирается по порядковому номеру. Определя¬ 
ющее слово $\ѴІТСН (переключатель) компилирует 
такой вектор в поле параметров определяемого слова 
и задает выбор альтернативы в исполняющей части: 

і БИ1ТСН ( -X 7ЕХЕС СКЕЙТЕ 5ИЦД6Е 3 
С0ЕБ> ( ПИОНЕР ВЕТВИ,РРА->1 5ИЙР 

1- 2 * ♦ • ЕХЕСІПЕ | 

Создающая часть строит новую словарную статью и 
переключает текстовый интерпретатор в состояние ком¬ 
пиляции. Таким образом, следующие слова будут ком¬ 
пилироваться в поле параметров определяемого слова. 
Слово 8МЕШОЕ выставляет разряд «Не готов» в байте- 
счетчике поля имени, делая данную статью «невидимой» 
при поиске слов в словаре. Этот разряд будет сброшен 
словом ; (точка с запятой), которое завершает компи¬ 
ляцию такого переключателя. Например: 

I М1 .- ПОНЕДЕЛЬНИК" | | N2 . ' ВТОРНИК' | 

I И! .° СРЕДА' | I И4 .' ЧЕТВЕРГ' | 

I N5 .' ПЯТНИЦА' | I Кі .' СУББОТА" | 

і М7 .' ВОСКРЕСЕНЬЕ" | 

ВЫІТСН ДЕНЬ-НЕДЕЛИ Н1 И2 ИЗ И4 N3 N6 N7 | 

Порядок использования переключателя ДЕНЬ- 
НЕДЕЛИ иллюстрирует следующий протокол работы: 

> 3 ДЕНЬ-НЕДЕЛИ 
СРЕДА ОК 

> 3 ДЕНЬ-НЕДЕЛИ 
ПЯТНИЦА ОК 

Описанный механизм аналогичен определению вектора, 
рассмотренному в п. 1.10. Его также можно задавать 
по-разному в зависимости от конкретных требований. 
В приведенной реализации неправильное значение вы¬ 
бирающего условия (выходящее за диапазон от 1 до 7) 
приведет к непредсказуемому результату, поскольку 
соответствующий контроль отсутствует. Чтобы ввести 
его в реализацию, нужно каким-то образом подсчитать 
число скомпилированных ссылок при завершении ком¬ 
пиляции. Для этого можно применить способ, анало¬ 
гичный компиляции переходов в ш итом коде, введя 
вместо точки с запятой специальное слово, отмечаю¬ 
щее конец переключателя. 
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Для реализации конструкции выбора через вложен¬ 
ные условные операторы создаются специальные слова, 
которые обрамляют всю конструкцию и каждую ее 
ветвь. В этом случае ветвь является обычной последо¬ 
вательностью форт-слов, аналогичной части «то» или 
части «иначе» условного оператора. Как и в случае 
условного оператора, конструкцию выбора можно ис¬ 
пользовать только внутри определений через двоеточие, 
т. е. в состоянии компиляции текстового интерпрета¬ 
тора. При этом все ее специальные слова имеют признак 
немедленного исполнения и компилируют необходимые 
проверки и переходы. 

I САБЕ ( ->Я01 СВР,4 > 7С0ИР СБР • •СВР 4 | 

ІННСОІАТЕ 

I ОР ( 4->А|>ИАКК,1,31 4 7РАІК8 СОМРПЕ ОѴЕВ 
СОМРПЕ • [СОМРПЕ] ІГ СОМРПЕ ОБОР 3 ! 

ІГ4НЕ0ІАТЕ 

і ЕМООР ( А11>ИАЙК,1,5- >А2і >МАРК,1,4) 3 7РАІК8 

[СОМРПЕ] ЕІБЕ 4 | 1ММЕ0ШЕ 

■ ЕМ0СА8Е I АО, АІ ,1,...,АН,|4->) 

4 7РАІЙ8 СОМРПЕ ОРОР 

ВЕЗ ІЫ 8Р( СБР I • О* ИННЕ [СОМРПЕ] ТНЕМ 
РЕРЕАТ ( АО) СВР ! | ІММЕОШЕ 

I ДЕНЬ-НЕДЕЛИ ( М-» САБЕ 

1 ОР .* ПОНЕДЕЛЬНИК" ЕМООР 2 ОР ." ВТОРНИК" ЕЫБОР 
3 ОР СРЕДА* ЕМООР 4 ОР .* ЧЕТВЕРГ" ЕМООР 
3 ОР ." ПЯТНИЦА" ЕМООР Ь ОР ." СУББОТА" ЕМООР 
7 ОР ." ВОСКРЕСЕНЬЕ" ЕМООР 

СК . - ДЕНЬ НЕДЕЛИ?" А80КТ ЕМОСАБЕ | 

Слова СА8Е (выбор) и ЕИБСАЗЕ (конец выбора) 
ограничивают конструкцию и обеспечивают правиль¬ 
ную компиляцию вложенных операторов. Слово СА8Е , 
проверив, что текстовый интерпретатор находится в со¬ 
стоянии компиляции, сменяет глобальную переменную 
С5Р (сокращение от СІЖКЕЭТ 5ТАСК РОШТЕК - 
текущий указатель стека), сохраняя на стеке ее преж¬ 
нее значение (слово !С8Р засылает в переменную С8Р 
адрес текущей вершины стека). Слова ОР (из) и ЕИО- 
ОР (конец из) ограничивают отдельную ветвь. Во вре¬ 
мя работы скомпилированного определения перед на¬ 
чалом исполнения каждой ветви на стеке лежат два 
значения: число, представляющее условие выбора, и но¬ 
мер данной ветви. Слово ОР компилирует текст ОѴЕК = 
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= ІР ЭЯОР , который обеспечивает передачу управ¬ 
ления на данную ветвь, если эти два значения совпали, 
причем в этом случае они оба снимаются со стека. Если 
же значения оказались разными, то управление пере¬ 
дается на текст, следующий за словом ЕЫБОР для 
данной ветви, которое эквивалентно слову ЕР8Е . На¬ 
конец, слово ЕN^СА$Е компилирует операцию ОПОР , 
чтобы снять со стека оставшееся там значение условия, 
и разрешает все накопившиеся на стеке выходы из вет¬ 
вей на текущую точку, исполняя для этих ветвей слово 
ТН ЕМ . Его последним действием является восстано¬ 
вление прежнего значения переменной С5Р , которое 
к этому моменту оказывается на вершине стека. 

В приведенных определениях можно несколько 
уменьшить объем кода, компилируемого для входа 
в каждую ветвь, если ввести для этого специальное 
слово, вслед за которым в шитый код компилируется 
адрес перехода на следующую ветвь: 

I <0Р) ( N1 УСЛОВИЕ, 11 НОМЕР ВЕТВИ->) 

ОѴЕЯ с ІР ОПОР Я> 2* Е1.3Е Я> ( ТНЕИ >Я | 

I ОР ( 4->Аі>МАЯК,2,5> 4 7РАІЯ8 

СОМРІІЕ (ОР) >МАЯК 2 5^ | 1МИЕ01АТЕ 

Исполнение слова (ОР) аналогично ?ВВА]ЧСН , в за¬ 
висимости от условия оно переустанавливает указатель 
интерпретации, либо обходя скомпилированную за ним 
ссылку, либо устанавливая указатель по значению этой 
ссылки. Аналогичным образом наряду со словами (ОР) 
и ОФ можно определить пары (<ОР)и <ОР, (> ОР) 
и > ОР , ( < О Р < ) и <ОР< , выполняющие срав¬ 
нение значения условия с заданным значением, выби¬ 
рающим данную ветвь, не на равенство, а на неравен¬ 
ство указанного вида. При этом слово ( < О Р < ) 
сравнивает значение условия с двумя значениями, 
определяющими интервал. Например: 

I ПРИЕМ ( Ні НОМЕР ДНЯ— >) САБЕ 

3 ОР НЕПРИЕМНЫЙ' ЕНООР 
1 5 <0Г< .* ПРИЕМНЫЙ* ЕИООР 
& 7 <0Р< .' ВЫХОДНОЙ’ ЕНООР 
СЯ . .* - НОМЕР ДНЯ?" ДВОЯТ ЕН0СА5Е ВЕНЬ' | 

В данном примере множества выбирающих значений 
пересекаются, и выбор ветви определяется для этого 
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случая порядком расположения ветвей в конструкции 
выбора. 

3.6. Динамическая идентификация 

Внутренним представлением форт-слова явля¬ 
ется словарная статья, которая размещается в словаре. 
Через поля связи словарные статьи объединяются в цеп¬ 
ные списки, каждый из которых также представлен 
как отдельный объект словарной статьей, создаваемой 
по слову ѴОСАВІЛАЯУ . Исполнение слова, обозна¬ 
чающего такой список, делает его текущим значением 
переменной ССЖТЕХТ , определяющей список, в ко¬ 
тором начинается поиск каждого вводимого форт- 
слова. Если слово отсутствует в этом списке, то следу¬ 
ющим просматривается список, в который добавляются 
создаваемые новые статьи, текущее значение перемен¬ 
ной СІЖКЕІЧТ . Последним просматривается стан¬ 
дартный список РОКТН . Если текстовый интерпрета¬ 
тор находится в состоянии исполнения, то найденный 
код исполняется, в состоянии компиляции он компи¬ 
лируется в виде ссылки на данную словарную статью 
для последующего исполнения в составе скомпилиро¬ 
ванного определения. 

Таким образом, в процессе создания нового опре¬ 
деления мы индентифицируем составляющие его слова 
статически, т. е. по текущему контексту (значениям 
переменных ССЖТЕХТ и СІЖКЕХТ ) во время компи¬ 
ляции. Во время исполнения этого определения будут 
исполняться именно эти, найденные во время компи¬ 
ляции составляющие слова. Вместе с тем в практике 
программирования уже давно применяется прием, из¬ 
вестный как динамическая идентификация. В приме¬ 
нении к языку Форт он состоит в том, что вместо ком¬ 
пиляции ссылки на статью слова по результату ста¬ 
тической индентификации в компилируемой статье 
запоминается имя слова, и его поиск ведется в момент 
фактического исполнения. Главная особенность состоит 
в том, что контекст для поиска также устанавливается 
динамически в результате предшествующих вычи¬ 
слений. 

Описанный подход позволяет в ряде случаев суще¬ 
ственно упростить программирование слов, исполнение 
которых зависит от контекста их вызова. Вместо того, 
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чтобы внутри такого слова анализировать контекст 
и в зависимости от него выполнять те или иные действия, 
можно создать ряд слов с одним и тем же именем, но 
в разных контекстах. Каждое такое слово выполняет 
только свое действие, а вместо анализа контекста в ме¬ 
сте вызова такого слова программируются установка 
нужного контекста и поиск слова по заданному имени 
с последующим исполнением кода. 

В качестве примера рассмотрим простой язык, ана¬ 
логичный рассмотренному в п. 3.2, и содержащий опи¬ 
сания констант, переменных и оператор присваивания 
с инфиксной формой записи для выражений. Пусть 
описания констант выглядят, например, так: КОНСТ 
А = 2. Чтобы не перегружать наш пример ли ш ними 
деталями, не будем учитывать возможность компиля¬ 
ции описаний и операторов этого языка. Пусть они 
сразу же исполняются по мере поступления. Собственно 
задача состоит в том, что при обработке левой части 
оператора присваивания можно было различать пере¬ 
менные и константы. В первом случае результатом 
исполнения должен быть адрес соответствующей ячейки 
памяти, а во втором — сообщение об ошибке — недо¬ 
пустимом использовании константы в качестве полу¬ 
чателя присваивания. Если же имя переменной или 
константы использовано в правой части присваивания, 
то в обоих случаях нужно получить соответствующее 
значение. Разумеется, соответствующие операции про¬ 
верки можно включить в программу для переменной 
и константы, анализируя глобальную переменную 
?ЗНАЧ , как это сделано в рассмотренном выше при¬ 
мере. Покажем, как эту же задачу можно решить через 
динамическую идентификацию. 

Определим два контекста (списка слов) П и К, со¬ 
держащих операции над переменными и константами. 
Таких операций две: ЗНАЧ для получения значения 
и АДР для получения адреса. Операция ЗНАЧ рабо¬ 
тает в обоих случаях одинаково, а операция АДР до¬ 
пустима только для переменной; будучи примененной 
к константе, она должна выдать сообщение об ошибке. 
В список РОКТН также включим слово ЗНАЧ , которое 
в этом контексте выполняет пустую операцию, и слово 
АДР, выдающее сообщение об о ш ибке (их назначение 
станет ясным чуть позже). Для определения всех этих 
слов примем, что значение переменной или константы 
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размещается в поле параметров созданной для нее 
словарной статьи. 

РОКТН БЕРШТІОМБ 

ѴОСАВІД.АЯѴ П ѴОСАВІЛ.АЯѴ К 

П СЕР INIТIСМВ I ДЕЙСТВИЯ С ПЕРЕМЕННЫМИ) 

I ЗНАЧ ( РРА-ХПЗНАЧІ « РОКТН | 

I ААР 1 РРА—> Аі АДР) РОЯТН | 

К БЕРШТІОМБ ( ДЕЙСТВИЯ С КОНСТАНТАМИ) 

I ЗНАЧ ( РРА->М»ЗНАЧ) • РОВТН | 

I АДР ( РРА-Х СЯ 

НЕДОПУСТИМОЕ ИСПОЛЬЗОВАНИЕ КОНСТАНТЫ " 

ВООУ> >МАМЕ 10. АВОЯТ | 

РОЯТН ВЕРШТІ0И8 
I ЗНАЧ ( ->) | 

I АДР ( ->) -1 АВОЯТ” НЕДОПУСТИМЫЙ АДРЕС" ( 

Заметим, что при исполнении слов ЗНАЧ и АДР в кон¬ 
текстах П и К помимо вычисления соответствующего 
значения текущий контекст переключается на РОКТН . 
Исполняющая часть определяющих слов ПЕРЕМ 
и КОНСТ теперь состоит в установке соответствующего 
контекста, при этом на стек кладется адрес поля пара¬ 
метров данной статьи: 

і ПЕРЕМ ( -» СКЕЙТЕ О , Д0Е8> ( РРА->РРА) П | 

I КОНСТ ( ->) СКЕЙТЕ ВС Ы0Я0 0Я0Р 
< ВЫБРАТЬ ЗНАК •) 

БД НОВО М1Л1БЕЙ ВЯОР ( N1ЗНАЧ) , 

БОЕВ) ( РРА-)РРА) К | 

Чтобы теперь при обработке выражения в левой части 
присваивания получать значение переменной или кон¬ 
станты, надо слегка изменить определение слова ) О П Р Ц) 
(см. п. 3.2) — включить в него исполнение операции 
ЗНАЧ, которая идентифицируется динамически по 
текущему контексту. 

і >0ПРЦ> I N1 ПРИОРИТЕТ—>) 

>В " ЗНАЧ" РІНБ БЯОР ЕХЕСІПЕ 

веб і N оприа яв < мот ннне опей> бяор 

ОПРЦ) ( СРА) ЕХЕСЦТЕ ЯЕРЕАТ К) БЯОР | 

Если это определение исполняется сразу после пере¬ 
менной или константы (в контексте П или К), то оно 
преобразует адрес поля параметров соответствующей 
статьи, который находится в этот момент на вершине 
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стека, в значение данной переменной или константы. 
Для всех других случаев (контекст РОКТН ) преоб¬ 
разования стека не происходит. Именно по этой при¬ 
чине определения ЗНАЧ в списках П и К по завершении 
их исполнения переключают текущий контекст на 
РОКТН , а в списке РОКТН присутствует определение 
ЗНАЧ с пустым действием. Последнее обстоятельство 
гарантирует успешный поиск слова ЗНАЧ в любом кон¬ 
тексте, поэтому в приведенном определении проверка 
того, что поиск закончился успешно, опущена (ік ОКОР- 
реб). В заключение осталось только аналогичным об¬ 
разом переопределить слово : = (см. п. 3.2): 

■ 1= * АДР' РШ ОШ ЕХЕСІІТЕ ССОМРЛЕ] < | 

Сравнивая получившиеся определения, мы видим, что 
они существенно сократились в объеме: из них исчезли 
анализ текущего контекста и (соответственно) услов¬ 
ные операторы, предписывающие выполнение разных 
действий в зависимости от результата анализа. Опи¬ 
санный подход особенно перспективен, когда требуется 
выполнить много разных операций над объектами, каж¬ 
дая из которых выполняется по-разному в зависимости 
от текущего контекста. Разбиение большой операции 
с множеством проверок и разветвлений на ряд мелких, 
каждая из которых выполняется в своем контексте, 
не только упрощает программирование и отладку, но 
и сокращает объем программы, так как эти мелкие спе¬ 
циализированные операции для разных объектов часто 
можно совмещать: 

К 0ЕР1ІШІ0Н6 

і ЗНАЧ ( РРА-ХНЗНАЧ) С П 1 ЗНАЧ | 

В приведенном определении слово ЗНАЧ для списка 
К не программируется вновь, а определяется через 
такое же слово из контекста П , тем самым сокращается 
общий объем отладки. Следуя по этому пути, можно 
вообще исключить слово АДР из списка К , поскольку 
в этом случае сообщение об ошибке выдаст слово АДР 
из списка РОКТН , правда, с меньшей информацией — 
не будет напечатано имя константы. 

Если механизм динамической идентификации при¬ 
меняется для ряда не связанных между собой целей, 
то может оказаться неудобным выполнять переклю¬ 
чение контекстов через одну и ту же глобальную пере- 
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менную СОІЧТЕХТ и выполнять поиск слова в текущем 
контексте словом РШБ. Как правило, все форт-системы 
имеют более элементарное слово (РШБ), которое 
получает в качестве параметра текстовую строку с 
именем слова и вход в список статей, в котором нужно 
выполнять поиск. Используя это слово, можно органи¬ 
зовать поиск слова в любом списке или группе списков, 
уже не связывая его с текущим порядком поиска, 
принятым для слова РШБ. 

Например, именно таким образом нетрудно ввести 
в язык обработку исключительных ситуаций. Для этого 
нужно завести стек, элементами которого являются 
списки слов для обработки ситуаций. При установке 
перехвата ситуаций на вершину этого стека добавля¬ 
ется новый элемент — список слов-обработчиков. При 
снятии перехвата верхний элемент снимается со стека, 
делая доступными другие слова-обработчики с теми 
же именами. Слово, возбуждающее исключительную 
ситуацию, обращается к (РШБ) для просмотра всех 
списков в этом стеке от верхнего элемента к самому 
нижнему, сообщая ему имя слова, обозначающего си¬ 
туацию. Первое найденное при таком поиске слово 
и будет использовано как обработчик ситуации. Если 
слово отсутствует во всех списках, то это ошибка — 
непредусмотренная ситуация. 

3.7. Многозадачный режим 

Запуская на исполнение какое-либо форт-слово, 
программист имеет возможность исполнить следующее 
только по завершении исполнения предыдущего. Если 
исполнение данного слова требует значительного вре¬ 
мени счета, то длительные перерывы в диалоге создают 
определенное неудобство. Ввиду этого представляется 
весьма привлекательной идея многозадачной форт- 
системы, в которой программист может создавать фо¬ 
новые задачи и запускать их на исполнение, не пре¬ 
рывая диалога. Текстовый интерпретатор такой си¬ 
стемы, обеспечивающий диалог, является одной из 
задач и разделяет центральный процессор наряду с дру¬ 
гими задачами. Идея многозадачного режима привле¬ 
кательна еще и тем, что разные задачи могут разделять 
значительную часть кода — практически все ядро форт- 
системы. Из стандартных слов только системные пере- 
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менные ( 8ТАТЕ , ВАЗЕ и другие) и списки слов 
( ГОКТН , А88ЕМВЕЕК ) не могут одновременно уча¬ 
ствовать в нескольких вычислительных процессах (за¬ 
дачах), поскольку их код (значение поля параметров) 
в процессе работы может изменяться. В то же время 
вся остальная часть кода форт-системы, включая все 
слова, определенные через двоеточие и ССЖЗТАІЧТ, 
в процессе работы не меняется и может даже разме¬ 
щаться в постоянной оперативной памяти (ПЗУ). Что¬ 
бы снять это ограничение, во многих реализациях выде¬ 
лены особая область для размещения значений, кото¬ 
рые могут изменяться во время счета. Эта область на¬ 
зывается пользовательской и обычно располагается 
в конце адресного форт-пространства рядом со стеками 
и буферным пулом. Распределение памяти внутри поль¬ 
зовательской области выполняет сам программист че¬ 
рез определяющее слово ШЕК. (пользовательский): 

I ІІ5ЕВ ( N1 СМЕЩЕНИЕ-) ) С ВЕАТЕ , 

В0Е5> ( РРА— >Аі АДРЕС) I 110 ♦ | 

По характеру использования это слово аналогично 
ССЖ8ТА1ЧТ ; значение, которое оно снимает со стека 
и компилирует в поле параметров определяемого слова, 
представляет собой смещение от начала пользователь¬ 
ской области. При исполнении такого слова на стеке 
будет оставлен соответствующий адрес (слово 110, 
использованное в определении слова О ЗЕК, дает адрес 
начала пользовательской области). При наличии поль¬ 
зовательской области все системные переменные раз¬ 
мещаются в ней, занимая какую-то ее начальную часть. 
Их словарные статьи определяются через слово ЕГ8ЕК, 
тем самым обеспечивается их. неизменяемость в про¬ 
цессе работы. 

Во всех реализациях многозадачного режима с раз¬ 
деляемым общим ядром форт-системы каждая задача 
имеет собственные пользовательскую область, стек 
данных и стек возвратов. Текущее состояние задачи 
определяется значением указателя интерпретации и ад¬ 
ресами вершин этих стеков. Представлением самой 
задачи обычно служит адрес начала ее пользователь¬ 
ской области, в которой предусматривается память 
для сохранения текущего состояния на то время, пока 
задача неактивна. Для возобновления исполнения за- 
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дачи требуется восстановить ее текущее состояние из 
области сохранения и передать управление на точку 
ЫЕХТ адресного интерпретатора. 

Дальнейшие уточнения конкретного варианта мно¬ 
гозадачного режима зависят от многих частных причин. 
Для примера рассмотрим реализацию системы ПОЛИ¬ 
ФОРТ фирмы «Форт» [31]. Эта система реализована 
для целого ряда ЭВМ, включая персональный компью¬ 
тер ИБМ. Использованный в ней механизм переклю¬ 
чения задач основан на кольцевом принципе: все задачи 
связаны в кольцо через начальную часть своей пользо¬ 
вательской области (рис. 3.2). Задачи, составляющие 
кольцо, по очереди получают центральный процессор 
и удерживают его до тех пор, пока не исполнят слово 
РАІІ5Е (пауза) или 8ТОР (стоп). Для определений 
в машинном коде предусмотрен аналогичный код \УАІТ 
(ждать). Многие слова, которые выполняют асинхрон¬ 
ные операции обмена ( ТУРЕ , ЕХРЕСТ , ВЕОСК , 
ВУЕГЕК ), содержат код \УАІТ или переход на 8ТОР , 
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чтобы в то время, когда они ждут завершения обмена, 
другие задачи могли использовать центральный про¬ 
цессор. Задачи, в которых для выполнения длительных 
вычислений нет необходимости обращаться к опе¬ 
рациям обмена, должны сами периодически пре¬ 
доставлять процессор другим задачам, выполняя 
слово РАІ38Е. 

Все задачи, существующие в системе, связываются 
в кольцо через команду безусловного перехода ДМР), 
которая располагается в начале их пользовательских 
областей. В качестве звена связи используется адресная 
часть команды перехода, указывающая на такую же 
команду следующей задачи в кольце. Если передать 
управление на одну из таких команд, то будет испол¬ 
няться бесконечный цикл из переходов по кольцу задач 
до тех пор, пока какая-нибудь задача не будет раз¬ 
бужена. 

Для пробуждения задач часто используются асин¬ 
хронные подпрограммы обработки прерываний. Напри¬ 
мер, если выход по прерыванию, установленный в слове 
ЕХРЕСТ , распознает код возврата каретки, которым 
заканчивается вводимая строка, то он будит задачу, 
запросившую данный ввод с терминала, засылая ко¬ 
манду \ѴАКЕ (разбудить) на место ее команды ЛѴ1 Р . 
Для этого часто используется какая-нибудь команда 
перехвата (например, для ЭВМ СМ-4 это команды 
ТКАР и Е м т). Когда цикл передач управления по 
кольцу задач дойдет до этой команды, она передаст 
управление специальной подпрограмме-побудчику, ко¬ 
торая и возобновит исполнение данной задачи от точки 
последнего остановка. При этом на место команды 
\УАКЕ будет вновь заслана команда .1М Р, и исполнение 
данной задачи будет продолжаться до следующей опе¬ 
рации РАІІ5Е , 8ТОР или \ѴАІТ . Пример цикла ввода 
и обработки данных с возобновлением по прерыванию 
дает следующее определение: 

І СБОР ( -> ) ВЕ81N ВВОД ВТОР ОБРАБОТКА А6АІМ і 

Пробуждение задачи от точки 8ТОР на каждом повто¬ 
рении цикла выполняет подпрограмма обработки пре¬ 
рывания, связанная с вводом данных, когда данные, 
получаемые при исполнении слова ВВОД , готовы для 
обработки. Пример задания регулярных остановов в за- 
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даче, требующей длительного счета, дает такое опре¬ 
деление: 


I СЧЕТ ( -» 30000 0 00 ШАГ РАЦЕЕ ШОР | 

При каждом повторении цикла после исполнения слова 
ШАГ происходит передача управления в кольцо задач 
с тем, чтобы дать поработать другим задачам, ожида¬ 
ющим центральный процессор. 

Действие 8ТОР (для определений, заданных в ма¬ 
шинном коде, аналогичное ему действие \ѴАІТ ) состо¬ 
ит в сохранении текущего состояния задачи (указателя 
интерпретации, указателя вершины стека данных и ука¬ 
зателя вершины стека возвратов) в ее пользователь¬ 
ской области и передаче управления по адресу из ее 
звена связи в кольце задач. В результате центральный 
процессор будет исполнять цикл из передач управления 
по кольцу задач, пока не встретит команду \Ѵ А К Е. 
Действие РАИ8Е отличается от описанного действия 
8ТОР только тем, что предварительно засылает коман¬ 
ду \УАКЕ в начало области данной задачи, обеспечивая 
тем самым пробуждение данной задачи после полного 
круга передач управления. Действие \УАКЕ заключа¬ 
ется в том, что команда ЛИР засылается на отведенное 
ей место в начало пользовательской области, восста¬ 
навливается текущее состояние данной задачи из ее 
области сохранения, управление передается на точку 
МЕХТ адресного интерпретатора. В результате испол¬ 
нение задачи возобновляется от точки останова. 

Для определения фоновой задачи используется 
определяющее слово ВАСКО КОІЖО (фон), которое 
снимает со стека три числа: размер пользовательской 
области, размер стека данных и размер стека возвратов. 
Это слово резервирует в словаре память указанного 
объема и указатели на эти области компилирует в поле 
параметров создаваемой статьи, например, 40 60 50 
ВАС КС КОЕК □ Т . При исполнении слова Т на стеке 
оставляется адрес его поля параметров, через который 
можно добраться до пользовательской области и сте¬ 
ков задачи Т . Данное описание только подготавливает 
задачу, но не включает ее в кольцо задач и не запуска¬ 
ет на исполнение. 

При запуске форт-системы в кольце задач присут¬ 
ствует только одна задача — ОРЕКАТОК (оператор), 
звено связи которой указывает на нее же. Для встраи- 
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вания в кольцо новых задач используется слово ВШЬЭ 
(построить), например Т ВІЛЬБ . Это слово, используя 
адрес поля параметров статьи для задачи, инициали¬ 
зирует ее пользовательскую область и включает ее 
в кольцо задач после задачи ОРЕКАТОВ . При этом 
в начало области вписывается команда ЛМР , предо¬ 
храняющая данную задачу от преждевременного испол¬ 
нения. Заметим, что форт-слова, составляющие прог¬ 
рамму данной задачи, могут быть определены значи¬ 
тельно позже. Обратное действие — исключение задачи 
из кольца задач — выполняет аналогичное по употре¬ 
блению слово КИШ (разрушить). 

Для запуска задачи используется слово АСТІѴАТЕ 
(запустить), которое снимает со стека адрес поля пара¬ 
метров статьи для задачи. Оно очищает стек данных 
и стек возвратов задачи, сбрасывая на начало указа¬ 
тели их вершин в области сохранения, а в качестве 
точки возобновления засылает свой адрес возврата, 
указывающий на следующее за ним слово. Поскольку 
адрес снимается со стека возвратов, то слово АСТІѴАТЕ 
аналогично слову ЕХІТ возвращает управление на 
точку вызова определения, его вызвавшего. Последним 
действием слова АСТГѴАТЕ является подготовка за¬ 
дачи к пробуждению путем засылки команды \УАКЕ 
в начало ее пользовательской области. Приведем при¬ 
мер использования слова АСТІѴАТЕ и запуска задачи 
на исполнение: 

I СЧЕТ < РРА-Н АСТІѴАТЕ ВЕВІН 1АГ РАЦЕЕ ШОР | 

Т СЧЕТ 

Задача Т будет выполнять бесконечный цикл, разделяя 
центральный процессор с текстовым интерпретатором 
форт-системы — задачей ОРЕКАТОК . Исполнение 
задачи можно оставить с помощью слова НАЕТ 
(останов): 

і НАІТ 1 РРА— > ) АСТІѴАТЕ ВТОР | 

если в рамках задачи ОРЕКАТОК исполнить текст Т 
НАЕТ . После такого останова данную задачу можно 
запустить на счет с какой-нибудь другой форт-про- 
граммой. 

При работе в многозадачном режиме возникает 
проблема синхронизации задан, разделяющих общие 
ресурсы, которые требуют монопольного использования. 
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Примерами таких ресурсов являются внешние устрой¬ 
ства, общие области оперативной памяти, куда осущест¬ 
вляется запись данных, общие подпрограммы, не 
допускающие параллельного использования. Опи ш ем 
простой механизм семафоров, позволяющий управлять 
использованием таких ресурсов в многозадачном режиме. 

С каждым ресурсом свяжем переменную — его сема¬ 
фор, которая должна размещаться в общей области 
форт-системы, доступной для всех задач. Когда ресурс 
не занят, эта переменная содержит нуль. Когда ресурс 
занят какой-нибудь задачей, эта переменная содержит 
адрес пользовательской области данной задачи. 

Определим слова СЕТ (получить) и КЕЬЕА8Е (ос¬ 
вободить), аналогичные семафорным операциям Дейк- 
стры [8]. В определениях этих слов используется вспо¬ 
могательное слово ГКЕЕ (свободен), проверяющее, 
свободен ли ресурс. Заметим, что ресурс свободен 
с точки зрения данной задачи, если он не занят или 
занят этой же задачей. 

■ РНЕЕ ( А|СЕИАБОР->А,Р|ПРИЗНАК СВОБОАНОСТИ ) 

« оцр О» БИАР и 0 ■ ОЯ | 

і БЕТ I АіСЕНА*ОР-> > 

ВЕѲІИ РАЦБЕ РНЕЕ 1ШТ11 1)0 БИАР • | 

I ЯЕЫЕАБЕ ( АіСЕИА*0Р->) 

РНЕЕ ІР О БИАР ! ЕеБЕ МОР ТНЕИ | 

В приведенных определениях слово Ш возвращает 
адрес начала пользовательской области текущей задачи. 
Слово СЕТ проверяет, свободен ли ресурс в каждом 
цикле передач управления по кольцу задач, и занимает 
его, как только обнаружит, что ресурс свободен. Слово 
КЕЕЕА8Е освобождает ресурс, если он был занят дан¬ 
ной задачей. 

Разумеется, эти слова не обеспечивают защиты от 
взаимных блокировок задач, каждая из которых ожида¬ 
ет ресурса, который занят другой задачей: 

ѴАЯІАВЬЕ ДИСК ѴАЯІАВІ.Г ЛЕНТА 
і ІАГ 1 ДИСК БЕТ ЛЕНТА БЕТ ... | 

I ШАГ2 ЛЕНТА БЕТ ДИСК БЕТ ... | 

Если слова ШАГ1 и ШАГ2 исполняются в разных за¬ 
дачах, то это может привести к их взаимной блокировке. 
Наилучший способ избежать такой ситуации — не 
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запрашивать более одного ресурса единовременно. На¬ 
пример, в случае работы с диском и лентой, задача 
может запросить ресурс ДИСК, выполнить слово 
ВЬОСК для получения данных, затем переслать эти 
данные в свою локальную область и, освободив ДИСК , 
запросить ресурс ЛЕНТА. 

3.8. Сопрограммы 

Представление задачи в виде взаимодействую¬ 
щих сопрограмм (процессов) в теории программиро¬ 
вания стало уже традиционным [15,161. Но на практике 
этот метод используется редко, так как боль ш инство 
распространенных языков высокого уровня не имеют 
необходимых конструкций. В стандарт языка Форт 
также не включены средства для сопрограммной ра¬ 
боты. Вызвано это в основном тем, что такие средства 
обычно зависят от конкретного приложения и могут 
варьироваться очень сильно. Тем не менее, используя 
только стандартные для большинства систем слова, 
можно реализовать необходимые конструкции. 

Рассмотрим достаточно простую и экономную реали¬ 
зацию сопрограмм. Направления, в которых можно 
ее усовершенствовать, рассмотрены ниже. 

Сопрограмма состоит из двух частей — собственной 
области памяти и программы, работающей с этой об¬ 
ластью памяти. Для языка Форт программа — это не¬ 
которое форт-слово, а область памяти должна со¬ 
держать место для указателей стеков, для самих стеков 
и для служебной информации. 

Будем считать, что адрес области памяти текущей 
сопрограммы находится в переменной Т-С . Используя 
ее, введем слова для доступа к полям этой области. 
Для простоты в данной реализации отводится участок 
памяти размером 128 байт. В его начале находятся: 
Т-ПРОГ — указатель начала ш итого кода, соответ¬ 
ствующего исполняемой программе, Т-СТЕК — указа¬ 
тель вершины стека данных на момент последней при¬ 
остановки данной сопрограммы ' (указатель вершины 
стека возвратов сохраняется на стеке данных) и Т- 
ВЫЗВ — адрес аналогичной области для сопрограммы, 
вызвавшей данную. В остальной памяти участка раз¬ 
мещаются стек данных и стек возвратов по 60 байт 
каждый. 
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Внешняя программа, в рамках которой действует 
описываемый механизм сопрограмм, представлена 6- 
байтной областью ВНЕШ , в которой размещаются 
перечисленные выше значения. В качестве своих стеков 
эта сопрограмма использует исходные стеки форт- 
системы. 

Перед началом работы все сопрограммы должны 
быть проинициализированы словом 8ТАКТ (старт), 
завершение работы сопрограммного механизма вы¬ 
зывает слово 8ТОР (стоп). 

Сопрограмма определяется через слово СОПРО¬ 
ГРАММА , которое по своему употреблению аналогично 
двоеточию. Вслед за ним идет имя сопрограммы и форт- 
текст, задающий требуемую программу. Обычно она 
состоит из цикла, внутри которого используется слово 
ВЕ8ЕПѴ1Е (возобновить) для приостановки данной со¬ 
программы и возобновления сопрограммы, ее вызвав¬ 
шей. Выход по ЕХІТ или ; приводит к завершению ра¬ 
боты всего сопрограммного механизма и возобновлению 
текстовой интерпретации. 

011АН Т-С ( АДРЕС ОБЛАСТИ ТЕКУЦЕИ СОПРОГРАММЫ) 

! Т-ПРОГ ( ->Аі АДРЕС НАЧАЛА ПРОГРАНИЫ) Т-С | 
і Т-СТЕК ( ->Аі АДРЕС УКАЗАТЕЛЯ СТЕКА ) Т-С 2+ | 
і Т-ВЫЗВ ( — >А і АДРЕС ВЫЗВАВШЕМ СОПРОГРАММЫ)Т-С 4 ♦ | 

СВЕАТЕ ВНЕШ 4 АИОТ ( ОБЛАСТЬ ДЛА ВНЕШНЕЙ ПРОГРАММЫ) 

I РЕЗОНЕ I -> ОСТАНОВИТЬ ТЕКУ*.И ВОЗОБН.ВЫЗВАВШУЮ 
КР а 8РІ Т-СТЕК ! ( СОХРАНИТЬ СОСТОЯНИЕ ТЕКУШЕИ) 

Т-ВЫЗВ I ТО Т-С ( ПЕРЕКЛЮЧИТЬСЯ НА ВЫЗВАВШУИ ДАННУ») 

Т-СТЕК I ВР! ИР* | ( ВОЗОБНОВИТЬ ПРИОСТАНОВЛЕННУ») 

I ВТОР ( -> ЗАВЕРШЕНИЕ ВСЕХ СОПРОГРАММ) ОШ | 

I (ЗТАНТ) ( А:АДРЕС ОБЛАСТИ СОПРОГРАММЫ-> ИНИЦИАЛИЗ) 

ДЦР ТО Т-С Т-ПРОГ I ОѴЕР 124 ♦ ! ОУР 124 ♦ 

ОѴЕР 44 + ! 44 ♦ Т-СТЕК ! ВНЕ» ТО Т-С ; 

I СОПРОГРАММА ( -> ОПРЕДЕЛЕНИЕ СОПРОГРАММЫ) СРЕАТЕ НЕРЕ 

сир 132 ♦ , 124 АИСТ НЕРЕ 2* , С' 1 ВТОР , (ЗТАРТ) 3 
БОЕВ> ( РРАі ОБЛАСТЬ СОЛРОГРАИНЫ-)) РРІ ВИАР >Р 

ЗРВ Т-СТЕК ! Т-С Р> ТО Т-С Т-ВЫЗВ ! 

Т-СТЕК I ЗР! РР! | 

) ВТАРТ ( -> ИНИЦИАЛИЗИРОВАТЬ СОПРОГРАММУ) 

' >В00У [СОИРИЕЗ ІШРАІ ЗТАТЕ I 
ІР СОМРПЕ (ЗТАРТ) Е18Е (ВТАРТ) ТНЕИ | ІММЕБІАТЕ 

В качестве примера рассмотрим часто встречаю¬ 
щуюся задачу: прочитать некоторый файл с одной 
длиной записи, обработать его и записать в другой 
файл, причем файлы имеют разную длину записи. Если 
решать эту задачу без сопрограмм, то надо либо вводить 
переменные — флажки, сигнализирующие о состоянии 
буферов, либо найти общее кратное длин входной 
и выходной записи и, отведя буфера такого размера, 
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сначала в цикле заполнять входной буфер, а потом его 
обрабатывать и выводить. В любом случае логически 
ясные действия по чтению, обработке и записи будут 
собраны в одну программу, которая в силу этого будет 
сложна для понимания, отладки и модификации. 

Применяя описанный механизм, определим две со¬ 
программы ВВОД и ВЫВОД , которые обменивают¬ 
ся между собой через однобайтный буфер ТЕК-СИМ , 
и слово ЗАДАЧА, которое выполняет требуемую 
перепись данных: 


віш ТЕК-СИМ ( ОЧЕРЕДНОЙ ОБМЕНИВАЕМЫЙ СИМВОЛ) 
САЕАТЕ ВХОД-БУР 60 АИОТ ( БУ»ЕР ВВОДА) 

СКЕАТЕ ВЫХ-БУ* 64 АИОТ < БУРЕР ВЫВОДА) 
СОПРОГРАММА ВВОД 

ОТКРЫТЬ-ВВОД ВЕ61И ВХОД-БУР ЧИТАТЬ ИННЕ 

ВХОД-БУР 60 + ВХОД-БУР 00 І СІ ТО ТЕК-СИМ 
ЯЕБЫНЕ ЮОР 

КЕРЕАТ ЗАКРЫТЬ-ВВОД ЗАКРЫТЬ-ВЫВОД | 
СОПРОГРАММА ВЫВОД 

ОТКРЫТЬ-ВЫВОД ВЕВIN ВЫХ-БУ* 64 ♦ ВЫХ-БУР 00 
ТЕК-СИМ I С! РЕБ0НЕ ЮОР 

ВЫХ-БУР ПИСАТЬ А6АІМ | 

1 ЗАДАЧА 

ВТАВТ ВВОД БТАКТ ВЫВОД 

ВЕБIN ВВОД ВЫВОД АВАІИ | 


Два ряда слов ОТКРЫТЬ-ВВОД, ЧИТАТЬ, ЗА- 
КРЫТЬ-ВВОД и ОТКРЫТЬ-ВЫВОД , ПИСАТЬ , ЗА¬ 
КРЫТЬ-ВЫВОД обеспечивают взаимодействие с вход¬ 
ным и выходным файлами. Слова ЧИТАТЬ и ПИСАТЬ 
требуют в качестве параметра адрес буфера ( ВХОД- 
БУФ для ввода и ВЫХ-БУФ для вывода), а слово 
ЧИТАТЬ , кроме того, возвращает логический резуль¬ 
тат — признак успешного завершения чтения. 

В заключение рассмотрим направления, в которых 
можно развить данную реализацию. 

1. Если сопрограммы могут использовать общий 
стек данных, то можно сохранять и восстанавливать 
только указатель стека возвратов. 

2. Можно передавать параметры при начале работы 
сопрограммы, а также при каждом возобновлении. 
Для этого потребуется специальное слово, пересылаю¬ 
щее указанное число элементов стека вызывающей 
сопрограммы на стек вызываемой. 

3. Предусмотрев поле связи для сцепления всех 
сопрограмм в список, можно получить состояние всей 
совокупности взаимодействующих сопрограмм. 
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4. Можно предусмотреть вызов асинхронного выхода 
«Окончание задачи». Идентификация этого выхода 
может быть как статической, так и динамической. 

5. Часть действий можно выполнять в состоянии 
исполнения, а не компиляции. Среди этих действий 
могут быть следующие: создание сопрограммы без име¬ 
ни и отведение заказываемого участка памяти в динами¬ 
чески распределяемой памяти, инициализация этой 
области памяти, освобождение области памяти сопро¬ 
граммы при ее завершении. 

6. Если использовать косвенный вызов через пере¬ 
менную типа ѴЕСТ , можно динамически определять 
возобновляемую сопрограмму. 

Возможны, конечно, и любые другие изменения, 
диктуемые конкретной обстановкой. 

3.9. Запланированное перекрытие 

Адресное пространство форт-системы не так уж 
велико — 64 К байт. Это налагает известное ограниче¬ 
ние на общее число форт-слов, одновременно присут¬ 
ствующих в словаре. Для снижения этого ограничения 
можно применить свернутый шитый код или использо¬ 
вать форт-систему, в которой в качестве основного 
вместо !6-разрядного значения выступает 32-разрядное. 
Можно заметно сократить требуемый объем оператив¬ 
ной памяти, если использовать векторное поле кода. 

Опишем еще один простой способ снижения требова¬ 
ний к памяти — запланированное перекрытие. Группа 
взаимосвязанных определений образует единый сегмент 
в двоичном коде, который может быть загружен на 
заранее заданное место в словаре из внешней памяти 
форт-системы. Разные сегменты, загружаемые на одно 
и то же место оперативной памяти, перекрывают друг 
друга, вот почему такая структура и названа заплани¬ 
рованным перекрытием. Благодаря тому, что хранящий¬ 
ся во внешней памяти сегмент выражен в двоичном 
коде, а не в виде текста, его загрузка идет примерно 
в 50—100 раз быстрее, чем обычная текстовая интерпре¬ 
тация. 

В приводимой далее реализации каждый сегмент 
загружается на фиксированный адрес — значение 
указателя НЕКЕ на момент начала его компиляции. 
Определение сегмента включается в список РОКТН . 
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После того как трансляция сегмента завершена, при 
его выгрузке во внешнюю память указатель вершины 
словаря понижается до прежнего значения с одно¬ 
временным исключением всех слов данного сегмента 
из списка РОКТН . При загрузке сегмента на соответ¬ 
ствующий адрес указатель вершины словаря вновь 
поднимается, и определения сегмента снова включаются 
в список РОКТН . 

Для трансляции сегментов введем глобальную пере¬ 
менную (СЕГМ) , содержащую адрес начала очеред¬ 
ного компилируемого сегмента, границы которого 
отмечаются словами СЕ ГМ-НАМ и СЕГМ-КОН . Вы¬ 
грузку и загрузку сегментов выполняют слова СЕГМ- 
ВЫГР и СЕГМ-ЗАГР . 


ѴАЯІА8СЕ (СЕГИ) 

і СЕГИ-НАЧ < -> НАЧАЛО ТРАНСЛЯЦИИ СЕГМЕНТА) 

НЕЯЕ ОЦР (СЕГИ) ! О , ( НОМЕР ЭКРАНА) 

НЕЛЕ О С, В). С, ( ФИКТИВНОЕ ИМЯ) 

РОЯТН ВЕЕШТІОМЗ 1АТЕ5Т , ( ЗВЕНО СВЯЗИ) 

ЮККЕИ! • ! , ( ТОЧКА ЗАГРУЗКИ) 

0,0, ( АЛИНА И ПОСЛЕДНЯЯ СТАТЬЯ) 

I 

I СЕГН-КОН ( -> КОНЕЦ ТРАНСЛЯЦИИ СЕГМЕНТА) 

(СЕГМ) I >Й ( ТОЧКА ЗАГРУЗКИ СЕГМЕНТА) 

НЕКЕ КА - ( ДЛИНА) ОЦР К» 8 ♦ ! 

РОЯТН ОЕРШТІОНЗ ЬАТЕВТ В> 10 + ! | 

I СЕГИ-ВЫГР ( Ні НОМЕР ЭКРАНА-) ВЫГРУЗКА) 

ВОР (СЕГМ) • >В КІ ! ( НОМЕР) 

ЯІ ЗИАР ( Аі АДРЕС СЕГМЕНТА,И) ОЦР В1 8 ♦ I 
1023 + 1024 / ( А,М,М,N1 і ЧИСЛО ЭКРАНОВ) 

СК СЕГМЕНТ ВИГРУІЕН НА ЭКРАНЫ * ♦ ЗИАР 00 
I . ( АІ I АДРЕС СЛЕДУДЦЕЙ ПОРЦИИ) ОЦР I ВІІРРЕК 
1024 СМ0ѴЕ ЦР0АТЕ 1024 ♦Ю0Р 0Я0Р 
РШ8Н Я) (Р0ЯВЕТ) I 

■ СЕГМ-ЗАГР ( Ні НОМЕР ЭКРАНА-) ЗАГРУЗКА) 

ВОР ВЮСК ( N,АО і АДРЕС ПЕРВОГО БЛОКА СЕГМЕНТА) 

ЗДОР * - 1Р 0Я0Р СЯ . - БЛОК ДЛЯ ЗАГРУЗКИ?* 

АВ0КТ ТНЕН ВОР 4 ♦ • (Р0ЯВЕТ) 20ЦР 

НЕКЕ ( N,АО,N,АО,А11НАЧАЛО) ЗИАР В ♦ I < N,АО,N, АІ ,Ь) 

0ЦР АІ.ЮТ 1023 ♦ 1024 / ( N,АО,И, АІ ,N11ЧИСЛО ЗКР) КОТ 

ОЦР Я0Т * БИАР I И1+М,М) 00 1 ВЮСК ОѴЕЯ 1024 СНОѴЕ 

1024 + ЮОР 20ЯОР ( N1 ВЮСК 10 ♦ • СІШЯЕНТ I ! | 


Слово СЕГМ-НАЧ строит заголовок сегмента, ко¬ 
торый располагается в его начале и содержит начальный 
номер экрана во внешней памяти, фиктивную словарную 
статью, адрес начала сегмента в оперативной памяти, 
длину сегмента и адрес начала его последней словарной 
статьи. Номер экрана определяется программистом при 
выгрузке сегмента во вне ш нюю память, впоследствии 
именно с этого экрана начинается его загрузка. Слово 
СЕГМ-ЗАГР проверяет, содержат ли первые 2 байта 
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сегмента данный номер, и выдает сообщение об ошибке, 
если это не так. 

Фиктивная словарная статья в заголовке сегмента 
аналогична полю параметров для слов, определен¬ 
ных через ѴОСАВІЛАКУ , и служит для включения 
определений данного сегмента в список РСЖТН при за¬ 
грузке сегмента. Она сцепляется с последней статьей 
списка РОЯТН на момент начала трансляции сегмента. 
При загрузке сегмента список РОК.ТН устанавливается 
на последнее определение внутри данного сегмента. 
Таким образом, словарные статьи сегмента вновь 
включаются в словарь форт-системы. При изменениях 
состояний словаря, связанных с загрузкой и выгрузкой 
сегментов, в качестве вспомогательного используется 
слово (РОКОЕТ), которое корректным образом пони¬ 
жает вершину словаря, исключая из него все системные 
ссылки на исключаемые статьи. В качестве параметра 
это слово использует новый адрес вершины словаря 
(см. модель форт-системы в приложении 1). 

3.10. Элементарная машинная графика 

Машинная графика — чрезвычайно перспектив¬ 
ная область для применения языка Форт. Поскольку 
для задач машинной графики постоянно ведется поиск 
все новых и новых способов их постановки и решения, 
то здесь как нигде требуется очень гибкий инструмен¬ 
тальный язык, позволяющий быстро реализовывать 
и проверять на практике разные варианты решений. 
Принцип обратной оперативной связи между постанов¬ 
кой задачи и ее решением позволяет программисту 
добиваться существенно более высоких профессиональ¬ 
ных результатов, чем при традиционных подходах. 

Вместе с тем развитие машинной графики в значи¬ 
тельной степени определяется наличием тех или иных 
аппаратных средств. Чрезвычайное разнообразие их 
конкретных характеристик делает невозможным соз¬ 
дание какого-либо универсального языка, применимого 
для всех возможных случаев. Язык Форт позволяет 
программисту самому быстро создавать необходимые 
инструментальные средства, применяя универсальные 
приемы с учетом особенностей конкретной задачи. 

Рассмотрим две очень разные по сложности задачи 
построения графиков функций. В первой используется 
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алфавитно-цифровой терминал, во второй — графо¬ 
построитель с широким набором возможностей. 

В случае использования алфавитно-цифрового тер¬ 
минала задача состоит в том, чтобы отобразить в нем 
график функции, заданной вектором своих значений. 
Введем понятие вектора, элементы которого нумеруются 
от нуля, по аналогии со словом (см. и. 3.4). 

Для получения адреса элемента вектора и для при¬ 
сваивания ему нового значения можно использовать 
те же слова АТ и ТО . 


I ?♦ ( N->N1 пир 0< АВОВТ” ОТРИЦАТЕЛЬНОЕ ЗНАЧЕНИЕ" | 
і 8-АйР < I:ИНДЕКС,РРА->АСП:АДРЕСI 2ПЦР I ІК 
1Р БИАР и 2» ♦ ЕХІТ ТНЕМ БИАР СИ 
. - НЕДОПУСТИМЫЙ ИНДЕКС ДЛЯ ВЕКТОРА • 

вот вот вот >мане іо. авовт і 

і В-АДРО П0ЕБ> ( ІіИНДЕКС.РРА-ШПіАДРЕС) В-АДР | 
і В-ПРИСВ П0ЕБ> ( N1ЗНАЧ|I|ИНДЕКС,2СРА->) 2* В-АДР ! | 
і ѴаиАИ ( N1 ВЕРХИ.ИНДЕКС-)) ?♦ СВЕЙТЕ В-ПРИСВ НЕВЕ 2- • , 
В-АДРО НЕВЕ 4 - I , !♦ ПЫР , 2* НЕВЕ ВИАР ПОР АИСТ 

ЕВАВЕ ООЕБ) ( Іі ИНДЕКС, 1СРА-ЖСI2 і ЗНАЧ) 4 ♦ В-АДР I | 
і В-РАЗН ( -ЖіЧИСЛО ЭЛЕМЕНТОВ) 

•в*в ісоирпе: итеяаі < шешате 


Невысокая разрешающая способность алфавитно- 
цифрового терминалах точки зрения машинной графи¬ 
ки вполне допускает использование стандартных целых 
чисел для представления значений вещественных функ¬ 
ций. Более того, такие дискретные вычислительные 
приемы оказываются значительно более удобными для 
задач машинной графики, чем работа с числами в 
формате плавающей точки. Например, тригонометри¬ 
ческие функции можно вычислять следующим образом, 
задавая их аргумент в градусной мере: 


I 14.06.34 518 СОВ) I ТАБЛМАА СЖШ ОТ 0 И № ГРАД.) ХНЕ 
00000 , 0175 , 0349 , 0523 , 0698 , 0872 , 1045 , 121? , 1392 , 

1364 , 1736 , 1908 , 2079 , 2230 , 2419 , 2598 , 2736 , 2924 , 

3090 , 3256 , 3420 , 3384 , 3744 , 3907 , 4067 , 4224 , 4384 , 

«540 , 4693 , 4848 , 5000 , 3130 , 5249 , 3446 , 3592 , 3736 , 

3879 , 6018 , 6137 , 6293 , 6428 , 6361 , 6691 , 6820 , 6947 , 

7071 , 7193 , 7314 , 7431 , 7347 , 7660 , 7771 , 7880 , 7986 , 

Ю90 , 8192 , 8290 , 9387 , 8480 , 8372 , 8860 , 8746 , 8829 , 

8910 , 8986 , 9063 , 9135 , 9203 , 9772 , 9336 , 9397 , 9(53 , 

9311 , 9563 , 9613 , 96Я , 9703 , 9744 , 9781 , 9816 , 9848 , 

9877 , 9903 . 9923 , 9945 , 9968 , 9976 , 9996 , 9994 , 9998 , 

10000 , | 518180 ( И-7918 8, 0О4КЧ8Й 

ПР 90 > 1Р 180 5МАР - ТЖ8 2» [ 0ЦР 1 ИГОМ. ♦ I; ОПОР 
I 518 I 8->818 8) 360 ЯШ ПНР 0< 1Р 340 ♦ Л» 

ИР180 > 1Р 180 - 518180 ХВАТЕ В.5Е 518180 Т№Х | 

I С08 I 8-7СВБ 8) 90 5ЖР - 518 ; 
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Аналогично и другие элементарные функции можно с 
успехом вычислять по классическим итерационным 
схемам: 

< 050ЯТ Бдят ИЗВЛЕЧЕНИЕ КОРНЯ ПО СХЕМЕ НЬИТОНД) 

: 050ЯТ ( В1-7В2) 20ЧР 

В0< АВОЯТ* ОТРИЦАТЕЛЬНЫЙ АРГУМЕНТ" 

2ВЧР 2. В< ІР ЕХІТ ТНЕН 

( ДАЛЕЕ ПО СХЕИЕі ХСОЗ-Х/2) XI І+і 3 = ХС 13/2+Х/ХСП/2) 

2ВІІР 2. В/ ЗМАР 

ВЕЗIN 20ѴЕЯ 20VЕЯ О/ 20ѴЕЯ 0+ 2. О/ 23НЙР 20ѴЕЯ 
В- 0АВ5 2. в< іімтіі. 

25ИАР 2ВЯ0Р | 

I 50ЯТ ( N1->М2» 3>0 ВЗОЯТ ОЯОР | 

Некоторое неудобство при таком представлении 
функций доставляет необходимость помнить о масштаб¬ 
ном множителе, но это с лихвой возмещается простотой 
приемов их вычисления. 

Используя описанные вспомогательные средства, 
можно задавать векторы со значениями интересующих 
нас функций. Работая с простыми значениями, будем 
пользоваться их описанием через слово фИАК. 
Пусть наша функция в обычной записи имеет вид: 
у = $іп Зх + 5Іп 120т. Зададим ее определение через 
введенные инструментальные определения, выбрав 100 
в качестве масштабного множителя: 

70 ѵвийм и 

■ II! ( -> УСТАНОВКА ВЕКТОРА Ш В-РАЗН Ц 0 ВО 
3 I • 81N 120 I * 81N * 100 / I ТО Ч Ю0Р | 
и! 

При желании можно проверить правильность установки 
значений, распечатав их как числа: 

■ В-? ( -> РАСПЕЧАТКА ВЕКТОРА) >1Я I >Я 

1С0МРИЕ1 8-РАЗМ Я> ИМ ! ' ЕМАР 0 00 
I 0ѴЕЯ ЕІЕСЧТЕ В .Я 100Р 0Я0Р | 

В-? II 

В результате будет напечатан следующий текст: 
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Для построения графика определим список слов РЬОТ 
(график) и в нем ряд вспомогательных переменных: 


Ѵ0СА8ШААѴ РЮТ 

ОЦАМ 

АНО 4 

ТО 1 

ОЦАМ 

мио іо 

ТО 1 

ОЦАМ 

ИЦО 64 

АНО 

ОЦАМ 

ИБТА 


ОЦАМ 

МЦ 


ОЦАМ 

МЦ 


ОЦАМ 

ИХ 


ОЦАИ 

ИѴ 


ОЦАМ 

КАРРА 


ОЦАМ 

1.АМВОА 


ОЦАМ 

НА 


ОЦАИ 

НІНО 


ѴЕСТ 

ѴАЦ 



РШТ ВЕГШТІ0Н5 

НО ( (ИРИНА СТОЛБЦА ДЛЯ Ѵ-КООРД.) 

00 ( МАКСИМАЛЬНАЯ ВЫСОТА ОКНА) 

- ТО ИЦО ( МАКСИМАЛЬНАЯ (ИРИНА ОКНА) 
( АДРЕС НАЧАЛА ОКНА) 

( ТЕКШАЯ ВЫСОТА ОКНА) 

< ТЕКУЩАЯ (ИРИНА ОКНА) 

( Х-К00РДИНАТА ОКНА) 

( Ѵ-КООРДИНАТА ОКНА) 

( ЧИСЛО ЗНАЧЕНИЯ СИГНАЛА) 

( ДИАПАЗОН ЗНАЧЕНИИ СИГНАЛА) 

( МАКСИМАЛЬНОЕ ЗНАЧЕНИЕ СИГИ.) 
( МИНИМАЛЬНОЕ ЗНАЧЕНИЕ В ОКНЕ) 

< ВЕКТОР СИГНАЛА) 


Пусть прямоугольный экран терминала, на котором 
строится график, содержит МШ строк по N110 литер 
каждая. Первые К НО позиций в каждой строке зани¬ 
мает надпечатка ее координаты по оси ординат. Общий 
размер графика определяется значениями ІАМВОА 
(диапазон значений функций) и КАРРА (число зна¬ 
чений) . Этот прямоугольник может как умещаться цели¬ 
ком на экране терминала, так и заметно превышать его. 
Определим понятие «окна», которое перемещается по 
графику и показывает на экране терминала соответ¬ 
ствующую его часть. Переменные \УХ и \УУ задают 
координаты левого верхнего угла окна относительно 
левого верхнего угла графика. Определим слова, вы¬ 
полняющие инициализацию и перемещение окна по 
полю графика: 

роатн вершпомв рьот 

I НАЧАТЬ ( -> ИНИЦИАЛИЗАЦИЯ) РГОТ 

мере нио мио • аілот то ивта і 
риот оершпомв 

I ВВЕРХ ( Н-> сдвинуть ОКНО НА N ПОЗИЦИЯ ВВЕРХ) 

?♦ МѴ БИАР - 0 МАХ ТО ИѴ | 

I ВЛЕВО ( Ч-> СДВИНУТЬ ОКНО НА N ПОЗИЦИЯ ВЛЕВО) 

?♦ ИХ БИАР - 0 МАХ ТО ИХ | 

I ВНИЗ ( М-> СДВИНУТЬ ОКНО НА N ПОЗИЦИИ ВНИЗ) 

?* иѵ * ми ♦ иАмвоА міи ми - то ыѵ і 

I ВПРАВО ( Н-> СДВИНУТЬ ОКНО ХА N ПОЗИЦИИ ВПРАВО) 

?♦ их ♦ ми ♦ карра Ніи ми - то мх і 

Определим также слова для вычисления параметров 
графика и распечатки окна по его текущим координа¬ 
там. Вспомогательное слово ]ѴШ по значению функции 
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определяет, где находится соответствующая точка 
графика: ниже окна, внутри или выше него. Если 
точка попадает в окно, будем отмечать ее положение 
знаком * (звездочка), а если точка находится выше 
или ниже окна, то соответственно в самой верхней или 
самой нижней строке окна поставим знак + (плюс), 
чтобы видеть направление, в котором следует искать 
данную точку на графике. Ось абсцисс, если она попадает 
в окно, будем отмечать строкой из знаков «минус». ЕІад- 
печатку координат по оси абсцисс будем выполнять 
дважды — в верхней и нижней строках терминала. 

■ -ни ( Нс ЗНАЧЕНИЕ->-1 і ниже окна/ 

ИіСИЕІЕНИЕ ОТ ВЕРХА ОКНА ВНИЗ,О/ 

+1 і ВЫШЕ ОКНА ) 

ИІНО - оир 0< ІР ОАОР -I ЕХІТ ТНЕН 

ни 1 - Биар - оир о< ір ояор і ехіт тнен о і 

I ФУНКЦИЯ < -> СЛЕДУИИЕЕ СЛОВОі ИНА ВЕКТОРА ЗНАЧЕНИИ) 

>ІН • >В СС0НРП.ЕЗ В-РАЗН Я> >ІМ ! 

оир то Карра иио нін то нц • то ѵаі. 

( ВЫЧИСЛЕНИЕ НА И І.АИВ0А ) 

о т оир і хсоз.поз і 

КАРРА 0 00 I ѴАІ. I НШІ-П.НАХСІ-П.ХПЗ ) 

ОЦР >Я ПАХ ВИАР К> НІИ ( ИАХП3, ГІ INЕ13) БИАР ЮОР 
оир то на Биар - і+ оир то іанвоа нио нік то ни 
О ТО ИХ О ТО НѴ I 

I ОСЬ-Х ( НАДПЕЧАТКА ОСИ X) СЯ ЯНО БРАСЕ6 ИХ № 1- ЯНО - ИХ 
ВЕбін оир іо ноо оир ір іо биар - тнеи оир >я ♦ гоир >■ 

ИННЕ Я> 6РАСЕ5 С ! ЕНІТ ОЦР 0 <1 «Б І> Оир >Н ТУРЕ 
1» В> ♦ ЯЕРЕАТ ЯОВОР 20В0Р | 

I ГРА4ИК ( -> РИСОВАТЬ ГРАБИК ПО СИГНАЛУ И КООРДИНАТАН ОКНА) 

ИА ИУ - ни 1- - ТО ИІЖ) ( УСТАНОВИТЬ НІИО) 

Н6ТА ни ни • вьаык < зачистить окно» 
о -нц о* ір ни » мвт а ♦ ни с - рш тнем ( провести ось хі 

( ЦИКЛ ПО ОСИ X ДЛЯ ЗАПОЛНЕНИЯ ОКНА) ИХ № ♦ ИХ 00 

і ѵаі. < хпз) -ни оир ір < вне окна) і+ ір ( визе окна) 

С* + О ЕІЗЕ ( НИІЕ ОКНА) С" + ИЦ 1- ТНЕН 

ЕС БЕ ОАОР С • БИАР ТНЕИ 
ни « I ИХ - ♦ МВТ А ♦ С! ЮОР 

ось-х ни о оо ся на иѵ - і - яно .я і ни • ибта ♦ 
ни туре юор ось-х і 


Следующий протокол показывает работу введенных 
определений по вычерчиванию графика интересующей 
нас функции: 


> начать функция и график 
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Вычерчивание графиков на графопостроителе чрезвы¬ 
чайно осложняется обилием детален чертежа, которые 
надо учитывать. При этом собственно вычисление значе¬ 
ний функции составляет незначительную часть в общем 
объеме работы. Многие элементы чертежа имеют, как 
правило, какое-нибудь стандартное значение, прини¬ 
маемое по умолчанию, и программист может их только 
переопределять (например, заголовок, штамп, оформле¬ 
ние полей, выбор шрифтов и цвета надписей и т. д.). 
С каждым из этих крупных элементов можно связать 
список слов, обрабатывающих те или иные его компо¬ 
ненты, и для установки нужного значения исполнять 
соответствующее слово в контексте данного элемента. 
Сходные действия (например, задание шрифта или 
цвета) в разных контекстах могут обозначаться одними 
и теми же словами, что создает большие удобства для 
программиста. Вместе с тем и синтаксис для задания 
действий графопостроителя можно сделать макси¬ 
мально простым и удобным для пользователей-непро- 
граммистов. Например, определение элементов чертежа 
можно задавать так: 


ГРА4ИК ХУ X ОТ О 10 4 ШАГ 1 

У ЛОГАРИФМ ОТ 1 ДО 100 
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X ШТРИХ РАЗМЕР 0.25 РАМКА 
ЗАГОЛОВОК" ЧЕРТЕ! 1* РИСУЙ 


В результате будет нарисована прямоугольная рамка 
с заголовком «ЧЕРТЕЖ 1» надпечаткой оси абсцисс 
в виде штрихов, пересекающих рамку, и логарифмиче¬ 
ской разметкой оси ординат. Огромное число других 
значений, необходимых для построения чертежа, при¬ 
нимается по умолчанию. Далее можно начертить 
собственно график функции, используя, например, ее 
задание через вектор значений: 

ФУНКЦИЯ и ИАСІТАБ 100 ЦВЕТ КРАСНЫЙ РИСУЙ 

Аналогично наносим на чертеж дополнительные элементы: 

ПОДЗАГОЛОВОК ВПРАВО 

ТЕКСТ" Ѵ*$ІЙ ЗХ ♦ ВІИ 120Х" РИСУЙ 

и т. д. Указанные действия можно не только непосред¬ 
ственно исполнять, но и компилировать, задавая впо¬ 
следствии их исполнение через одно слово — имя 
скомпилированной программы. 


3.11.Реализация встроенного ассемблера 


Приводимый ниже текст является законченной 
реализацией встроенного структурного ассемблера для 
форт-систем на базе микропроцессора К580. В от¬ 
транслированном виде он занимает около 1300 байт 
и является типичным для 8-разрядных микропроцес¬ 
соров. Для 16- или 32-разрядных процессоров в силу 
их большей сложности объем текста больше. Но даже 
в этом случае объем исходного текста и скомпилирован¬ 
ного кода существенно меньше, чем для традицион¬ 
ных ассемблеров. 

( РОКТН-аЗ АССЕМБЛЕР ДЛЯ КЗВО ТЕИЯІКИНО 1983 ) 

Ѵ0САВІЛ.АМѴ А58ЕНВ1.ЕЙ 
АВ8ЕИВІ.ЕЙ ВЕРШІТІ0МВ 

( МАІИННУЕ КОМАНДУ ) 

ОЕСІИАІ і 8» 2* 2» 2* | 

4 СОМВТАНТ Н 5 СОЫЗТАМТ I 7 С0М8ТЙМТ А 6 ШВТЛНТ РЭУ 
2 СОМВТАНТ 0 3 С0М8ТАМТ Е 0 С0Н8ТАМТ В 1 С0М8ТАМТ С 
6 СОМЗТАИТ М 6 СОЫЗТАЙТ ВР 

і 1НІ (-> > СМЕЙТЕ С, 0 ОЕ8 > С« С, | 

і 2НІ (-> ) СМЕЙТЕ С, 00Е8 > СІ ♦ С, | 

і ЗИІ ( - > ) СМЕЙТЕ С, 00Е8> СВ ВУАР В» + С, | 

і 4НІ ( -> ) СМЕЙТЕ С, 00Е6> СВ С, С, | 

і ЗИІ ( -> ) СМЕЙТЕ С, В0Е8> СВ С, , | 
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I НОѴ БИАР В» 40 ♦ ♦ С, | 

I ИѴІ БИАР В* В + С, С, | 

! ІХІ БИАР В* 1 + С, , | 

( КОАН УСЛОВИИ АЛЯ СТРУКТУР УПРАВЛЕНИЯ ) 

С2 СОИБТАИТ 0= 02 С0М8ТАИТ С5 

Е2 СОИБТАИТ РЕ Р2 СОИБТАИТ 0< 

( СТРУКТУРУ УПРАВЛЕНИЯ ) 

0ЕС1МАС 

і НОТ ( ИіКОА УСЛОВИЯ —> N1) 8 ♦ | 

і ТНЕИ ( ААР,2 —> ) 2 7РАІКВ НЕКЕ БИАР ! | 

і ІР < КОД —> АДР,2 ) С, НЕКЕ 0 , 2 ( 

і Е18Е ( АДР,2 -> АДР1.2І 2 7РАІК8 СЗ ІР КОТ БИАР ТНЕИ 2 | 

! ВЕБІИ 1 —> АДР,1 ) НЕКЕ 1 і 

і 11ИТІС I АДР,1,КОД->> БИАР 1 7РАІК8 С, , | 

I АБАIN < АДР,I —->) 1 7РАІК5 СЗ С, , | 

! ИННЕ ( АДР,1,К0Д — > АДР, 1 ,АДР1 ,4) ІР 2 + | 

! КЕРЕАТ ( АДР,I,АДР1,4 —>) Ж Ж АБАІИ К> К> 2- ТНЕИ | 

( РАБОТА С МЕТКАМИ ) 

10 СОИБТАИТ ЦВСМАХ ( МАКСИМАЛЬНОЕ ЧИСЛО ЛОКАЛЬННХ МЕТОК) 
ѴАКІА8СЕ СТАВКЕ СВСИАХ 1» 2» АССОТ ' 

10 СОИБТАИТ РЯМАХ ( МАКСИМАЛЬНОЕ ЧИСЛО ССЫЛОК ВПЕРЕД) 

ѴАКІАВСЕ РКТАВІЕ РЯМАХ 2» 2» АССОТ 
I РКСНК ( —> ПРОВЕРКА НЕРАВРЕВЕНННХ ССЫЛОК ВПЕРЕД ) 

РКМАХ 0 00 1 2» 2« РКТАВІЕ + ( 

АВОКТ" НЕРАЗРЕШЕННАЯ ССЫЛКА ВПЕРЕД* 

СООР 1 

і РКСІК < —-> ИНИЦИАЛИЗАЦИЯ ТАБЛИЦЫ ССЫЛОК ВПЕРЕД ) 

РКТАВСЕ РЯМАХ 2* 2* ЕКАБЕ 
СТАВЦЕ СВСМАХ 1+ 2* ЕКАБЕ | 


і РККЕ5 ( Иі МЕТКА —> РАЗРЕШЕНИЕ ССЫЛОК ВПЕРЕД 1 
РКМАХ 0 00 1 2« 2* РКТАВСЕ ♦ 20ЦР « • 

ІР НЕКЕ ОѴЕК 2+ • ♦ ! О! 

ЕС6Е СКОР ТНЕИ 
ССОР 1 

і РКАОО ( Иі МЕТКА > ДОБАВЛЕНИЕ ССЫЛКИ ВПЕРЕД В ТАБЛИЦУ ) 
РКМАХ 1+ О 

00 РКМАХ I » АВОКТ” СЛИІКОМ МНОГО ССЫЛОК ВПЕРЕД" 

I 2* 2* РКТАВСЕ + СЫР I О* 

ІР 20УР ! НЕКЕ 1+ БИАР 2+ ! СЕАѴЕ ЕС5Е СКОР ТНЕИ 
СОСР | 
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( ОПРЕДЕЛЯВШИЕ ВХОЖДЕНИЯ МЕТОК ) 

I !ЦТ СРЕАТЕ , В0Е8> « РКНЕВ НЕКЕ ВИЙР 2» ІТАВІЕ ♦ ! | 

ІСОР 1 

( ОПРЕДЕЛЯВШИЕ ВХОЖДЕНИЯ МЕТОК ) 

I ЦТ СКЕЙТЕ , 00Е5 > В РККЕ8 НЕКЕ 8ИАР 2» ГТАВГЕ ♦ ! ) 

( ИСЛОЛЬЗНВШИЕ ВХОЖДЕНИЯ МЕТОК ) 

I ПТ СКЕЙТЕ , ООЕЗ) Ш сир 2* 

ІТЙВІЕ ♦ • 8ВЙР ОѴЕК о» 

ІР РКЙОО ТНЕН СКОР I 

і пт іи і 2 цт 2 іі з пт зіі 4 ат 4*1 з цт з*і 

& ат ыі 7 ат 7 іі в ат в*і 9 ат 9»і іо ат ю*і 

і шит ій 2 шит гі з пт з* 4 шьт 4* з пт з* 

6 шит 8* 7 ПТ 71 8 ПТ В* 9 ПТ 9* 10 ІГТ 10* 

( ПЕРЕКЛЯЧЕНИЕ В АССЕМБЛЕР ) 

РОКТН 0ЕРШТІ0МЗ 

і ВЕВ-АЗМ С ЙЗВЕМВСЕК ] РКСІК 1 РОКТН ] АЗЗЕМВСЕК 
!СЗР I 

I ЕНО-АЗМ [ А83ЕМВ1ЕК 1 РКСНК I РОЯТН 3 7С5Р 

В приведенном тексте можно выделить четыре груп¬ 
пы определений: машинные команды, структуры управ¬ 
ления, метки и стандартные слова для создания опреде¬ 
лений в машинном коде. Помимо них данный текст 


определяет ряд вспомогательных слов. 

Машинные команды на языке ассемблера запи¬ 
сываются в обратной польской форме, принятой для 
языка Форт: <операнды> <операция> , где <опе- 
ранды> — слова, вычисляющие на стеке размещения 
операндов данной машинной команды, а <операция> — 
ее мнемоника. Для обозначения регистров микропро¬ 
цессора К580 зарезервированы слова А В С Б Е Н Ь, 
для задания регистровых пар используются слова 
В О Н 5Р Р$\У , для косвенной адресации через реги¬ 
стровую пару НЬ — слово М. 

При исполнении слов, обозначающих регистры, реги¬ 
стровые пары и косвенную адресацию, на стеке остав¬ 
ляются значения, соответствующие принятым в системе 
команд К580 обозначениям для регистров и регистро¬ 


вых пар: 


Н I М БР Р8И 


701234586 6 


При исполнении мнемоники машинной команды на 
вершину словаря компилируется соответствующая 
машинная инструкция. Размещения операндов при этом 
снимаются со стека. Порядок вычисления операндов 
машинной команды соответствуют порядку написания 
операндов на обычном языке ассемблера. 

Ниже приведены для сравнения записи машинных 
команд на обычном языке ассемблера и на языке ас¬ 
семблера данной форт-системы: 
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Для определения мнемоник используются опре¬ 
деляющие слова, соответствую щ ие форматам машин¬ 
ных команд ( 1МІ, 5МІ ). Все они имеют одинаковую 
создающую часть, которая компилирует в поле пара¬ 
метров статьи для мнемоники однобайтный код маски 
для кода данной команды, который снимается со стека. 
Исполняющая часть определений, используя маску 
и размещения операндов, которые она снимает со стека, 
компилирует двоичный код, соответствующий данной 
команде. Так, например, через елово 1МІ определяются 
машинные команды, не имеющие операндов. При ис¬ 
полнении мнемоники такой команды на вершину слова¬ 
ря компилируется однобайтный код операции. Слово 
ЗМІ определяет мнемоники команд, имеющих один 
операнд — номер регистра. Этот номер занимает раз¬ 
ряды со 2 по 4 в однобайтном коде команды. Поэтому 
исполняющая часть сдвигает свой операнд — номер 
регистра — влево на 3 разряда исполнением слова 8* 
и добавляет к нему маску команды. Получившийся 
однобайтный код компилируется на вершину словаря. 
Три команды — МОѴ, МѴТ и ПХІ — не подходят под 
описанные общие форматы, поэтому они определяются 
непосредственно через двоеточие. 

Структурные операторы встроенного ассемблера 
позволяют программировать разветвления и циклы без 
явно заданных команд перехода на метку. Их синтак¬ 
сис аналогичен синтаксису соответствующих операто¬ 
ров языка Форт. 

Условный оператор в полной или сокращенной фор¬ 
ме записывается следующим образом: 

<ЮНСЛМ) ѵ ОШЪ-ТО> 08Е <нкль-им> по 

(ХОНС/ША) V овстмю по 

Часть «то» выполняется, только если в разрядах Р5\У 
установлен заданный «код условия», в противном слу¬ 
чае выполняется часть «иначе», если она есть. 
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Циклы могут быть записаны в одной из трех форм: 

ВЕВIN <ТЕЛО-ЦИКЛА> АВА IN 

веві N <тело-цикла> <код-условия> іінтн. 

ВЕВIN <ТЕЛО—1 > <К0Д-УСЛ0ВИЯ> МИНЕ <ТЕЛО-2> ЯЕРЕАТ 

Цикл ВЕОШ-АСАШ является бесконечным, ВЕОШ- 
ІЖТІЕ прекращает выполнение при к указанном коде 
условия, в цикле ВЕОШАУНІЕЕ-КЕРЕАТ, наоборот, 
указанный код условия задает продолжение цикла. 

Для указания кода условия в ассемблере исполь¬ 
зуются следующие слова: 0= — установлен флаг 2, 
0< — флаг 8, С$ — флаг С, РЕ — флаг Р. Для инвер¬ 
тирования кода условия используется слово Ж)Т. 

Структурные операторы компилируют на своем месте 
команды безусловных и условных переходов с указан¬ 
ным условием. 

Для работы с явно задаваемыми метками в ас¬ 
семблер включены слова вида I#: 2#: ... 10#: и 1 # 
#2# ... 10#. Слова первой группы задают определе¬ 

ние метки, слова второй — использование. Метки имеют 
строго локальный характер, т. е. эти слова можно ис¬ 
пользовать только внутри определений через ССЮЕ и 
между словами ; ССЮЕ и ЕУО-ССЮЕ . Наряду с метка¬ 
ми допускается использование ассемблерных структур 
управления. 

Локальные метки рекомендуется использовать толь¬ 
ко в трехбайтных командах типа ЛИР, САЕЕ, ЕХІ . 
Уже определенные локальные метки могут участвовать 
в арифметических и стековых операциях; использую¬ 
щие вхождения меток, определяющие вхождения кото¬ 
рых вводятся позднее (ссылки вперед), могут участво¬ 
вать только в операциях, сводящихся к добавлению 
к ним числа со знаком. 

Для реализации работы с метками ассемблер имеет 
таблицу меток ЛТАВЕЕ и таблицу ссылок вперед 
ЕКТАВЕЕ . Их размер определяет максимальное число 
разных меток и ссылок вперед в пределах одного опре¬ 
деления в ма ш инном коде (от слова СОВЕ или ; ССЮЕ 
до слова ЕМБ-ССЮЕ ). Для каждой возможной метки 
соответствующий элемент таблицы ЕТАВЕЕ содержит 
нуль, если метка еще не определена, или адрес, который 
является ее значением, если метка уже определена. 
Входом в эту таблицу служит номер метки. В таблице 
ЕКТАВЛЕ для каждой ссылки вперед хранятся два 
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значения: номер метки и адрес в словаре, по которому 
нужно вписать ее значение. По этому адресу скомпили¬ 
ровано значение смещения, которое нужно добавить 
как число со знаком к значению данной метки. 

Слова для использующих вхождений меток опреде¬ 
ляются через @ЬТ, например 1 @ЬТ I#. Исполнение 
определенного таким образом слова 1 #, обозна¬ 

чающего метку номер 1, состоит в обращении к таб¬ 
лице ЬТАВЬЕ по индексу 1. Если там стоит нуль, т. е. 
метка номер 1 еще не определена, то этот нуль выдается 
на стек в качестве смещения от значения метки, которое 
определится позднее. Одновременно в таблицу ЕКТАВЕЕ 
заносится запись о данной ссылке вперед. В качест¬ 
ве адреса, куда нужно будет впоследствии вписать 
значение метки, берется НЕКЕ 1+. Здесь использу¬ 
ется тот факт, что в микропроцессоре К580 операнд- 
адрес занимает 2 байта, следующие за однобайтным 
кодом операции. 

Слова для определения меток определяются через 
слово !ЕТ , например 1 !ЕТ 1 # :. Исполнение опреде¬ 
ленного таким образом слова I#: определяет метку 
номер 1 как текущий адрес вершины словаря НЕКЕ . 
Его действие состоит в том, что выполняется просмотр 
таблицы ГКТАВЕЕ с разрешением всех накопив ш ихся 
ссылок на данную метку, после чего запись о данной 
метке заносится в таблицу ЕТАВЕЕ . 

Последнюю группу определений составляют слова 
для доступа к встроенному ассемблеру при компиляции 
машинного кода. Помимо стандартных форт-слов 
ССЮЕ, ; ССШЕ и ЕМО-ССШЕ здесь определяются слова 
ЕАВЕЕ и N ЕХТ; . Первое используется для создания 
именованных подпрограмм, к которым можно обра¬ 
щаться из ма ш инного кода. Второе является сокраще¬ 
нием для часто встречающегося окончания ассемблер¬ 
ных определений: ХЕХТ ЛМР ЕМБ-ССШЕ . В качестве 
примера приведем определение слова > < , которое 
меняет местами байты в переданном на стеке двух¬ 
байтном значении: 

СООЕ X ( N1 -> N2) Н РОР 

А I НОѴ I Н НОѴ НА НОѴ Н РІІ8Н НЕХТ| 

Приведенная реализация встроенного ассемблера 
может быть усовершенствована по нескольким направ¬ 
лениям. Прежде всего, увеличив константы ЕВЕМАХ и 
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ГКМАХ и дабавив новые определения для слов, обоз¬ 
начающих метки, можно увеличить количество разных 
меток и ссылок вперед, которые разрешается исполь¬ 
зовать в ассемблерном определении. Далее можно ввес¬ 
ти контроль правильности операндов, включив со¬ 
ответствующие проверки в исполняющую часть опре¬ 
деляющих слов для мнемоник команд. Для проверки 
числа элементов на стеке обьино используется гло¬ 
бальная ячейка С5Р и слово !С$Р, которое засылает 
в нее текущий адрес вершины стека. Интересным рас¬ 
ширением является возможность введения макроко¬ 
манд. Макрокоманды без локальных меток можно опре¬ 
делять обычным образом через двоеточие: 

ШН ( й> РЕГИСТР , На ЧИСЛО РАЗ->) 

С АБЗЕМВЬЕВ } 0 00 ОЦР Ш ШОР ОРОР | 

При исполнении текста А 3 ШЮФ будут скомпилиро¬ 
ваны три команды А ШК. 

Если же макрорасширение должно порождать обра¬ 
щения к адресам через локальные метки, то потребуется 
более основательное расширение ассемблера. 


Приложение 1. 

Модель форт-системы 

Приводимый ниже текст представляет собой яд¬ 
ро системы ФОРТ-ЕС (см. приложение 2), из которого 
исключены запускающая часть и реализации слов ниж¬ 
него уровня для обмена с терминалом и внешней па¬ 
мятью) . Общий объем ядра — 8 К байт (свыше 
200 слов). Текст состоит из двух частей — списка слов с 
их краткими спецификациями и экранов с определени¬ 
ями на встроенном языке ассемблера и на языке Форт. 

Помимо слов, которым соответствуют статьи в сло¬ 
варе, внутри ассемблерных определений используются 
метки и адреса. В спецификациях эти объекты отмечены 
буквами М и А. Они определяются с помощью слов 
М: и А: соответственно. Метки используются в машин¬ 
ных командах, а адреса порождают двухбайтное значе¬ 
ние, содержащее данный адрес. Адресные операнды 
ГІК8Т и 8 ЕССЖ [) обозначают соответственно первый 
и второй элементы стека. Макрокоманды РЕ18Н, ,РОР. 
и Р У ЕЕ можно рассматривать как команды с одним 
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регистровым операндом. Операция Р118Н, помещает на 
стек значение из регистра, РОР, снимает верхнее” зна¬ 
чение со стека, засылая его в регистр, и РІЛХ, копирует 
верхнее значение стека в регистр. Кроме того, в ас¬ 
семблерных определениях используются локальные мет¬ 
ки [11, с. 191], обозначаемые целыми числами и слова¬ 
ми = Р (для ссылки вперед) и =В (для ссылки 
назад). Определяется локальная метка через сло¬ 
во = Н, которое полагает ее равной текущему зна¬ 
чению счетчика адреса. Регистры общего назначения 
обозначаются специальными словами и имеют следую¬ 
щий смысл: 

К\У1 — рабочий регистр, старший в паре; 

К\Ѵ2 — рабочий регистр, младший в паре; 

КІ — указатель адресного интерпретатора; 

К КЕТ — абсолютный адрес вершины стека воз¬ 
вратов; 

К8ТАСК — абсолютный адрес вершины стека 
данных; 

КІ) — форт-адрес текущей вершины словаря; 

КРОКТН — абсолютный адрес начала словаря, 
соответствующий нулевому форт-адресу; 

КИЕХТ — адрес точки ЫЕХТ адресного интерпре¬ 
татора (тот же адрес, что и в КРОКТН); 

КТ\УО — константа 2; 

КМА8К — константа 65535. 

Предполагается также, что в регистре 13 находится 
адрес области сохранения и регистры 0, 1, 14, 15 сво¬ 
бодно используются внутри определений как рабочие. 

Тексты определений представлены в виде распе¬ 
чаток стандартных форт-текстов и занимают экраны 
с номерами от 1 до 47. В последнем столбце специфи¬ 
кации для каждого слова указан номер экрана, на ко¬ 
тором оно определено. Главным словом модели являет¬ 
ся слово ФОРТ-СИСТЕМА. 

В списке спецификаций слова расположены по воз¬ 
растанию в кодировке ДКОИ. Они могут иметь следую¬ 
щие отметки: 

А — адрес; 

М — метка; 

Н — слово немедленного исполнения; 

К — требуется режим компиляции; 

П — переменная, размещенная в пользовательской 
области; 
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С — системная переменная, размещенная в словаре; 

Э — требуется режим обработки экрана; 

+ — слово из дополнения к стандарту "Форт-83"; 

* — нестандартное слово. 

Для каждого слова указываются значения, которые 
оно снимает со стека (слева от знака -*•), и результат, 
который оно оставляет на стеке (справа от знака -*■ ). 
Если перечисляется несколько значении, то верхнее 
(на вершине стека) находится справа. 

Для задания параметров и результатов, передава¬ 
емых через стек данных, используются следующие 
обозначения: 

+ N — неотрицательное целое со знаком; 

А — двухбайтный форт-адрес; 

С — однобайтное значение (старший байт, как пра¬ 
вило, нулевой); 

СРА — двухбайтный адрес поля кода словарной 
статьи; 

О — четырехбайтное целое со знаком; 

Р — булевское значение (0 — ЛОЖЬ, не 0 — 
ИСТИНА); 

РР — булевское значение ЛОЖЬ (0); 

Р — абсолютный машинный адрес (четырехбайт¬ 
ный); 

РРА — двухбайтный адрес поля словарной статьи; 

N — двухбайтное целое со знаком; 

МРА — двухбайтный адрес поля имени словарной 
статьи; 

РРА — двухбайтный адрес поля параметров сло¬ 
варной статьи; 

Т — двухбайтный адрес строки со счетчиком; 

ТР — булевское значение ИСТИНА (не 0, обыч¬ 
но - 1); 

И — двухбайтное целое без знака; 

ЕГО — четырехбайтное целое без знака; 

\Ѵ — двухбайтное целое со знаком или без него ^ 
или И); 

\ѴЕ) — четырехбайтное целое со знаком или без него 
(И или ІЮ). 

Для некоторых слов указаны две группы результа¬ 
тов, отделяемые друг от друга косой чертой (/). Они 
резличаются по булевскому значению на вершине сте¬ 
ка: не 0 (ИСТИНА) означает успех, 0 (ЛОЖЬ) — 
неудачу. 


132 



«Н -> (ПУСТОЕ СЛОВО! - ЗАКОНЧИТЬ ИНТЕРПРЕТАЦИЯ 40 

ВХОДНОГО ПОТОКА 

С Н -> ПЕРЕКЛЯЧИТЬ ТЕКСТОВКИ ИНТЕРПРЕТАТОР 22 

В РЕЗИН ИСПОЛНЕНИЯ 

['] НК -> /КОМПИЛЯЦИЙ/ СКОМПИЛИРОВАТЬ СРА 41 

->СРА /ИСПОЛНЕНИЕ/ СДЕДУНЕГО СЛОВА КАК 

ЧИСЛОВОЙ ЛИТЕРАЛ 

ССОНРП.Е] НК •> СКОМПИЛИРОВАТЬ СЛЕДУЯЯЕЕ СЛОВО 41 

НЕЗАВИСИМО ОТ ЕГО ПРИЗНАКА "ІМИЕОІАТЕ' 

. N-7 НАПЕЧАТАТЬ N НА ТЕРМИНАЛЕ И ДАТЬ ПРОБЕЛ 38 

.( Н -> НАПЕЧАТАТЬ СЛЕДУВІИЕ ЛИТЕРИ ДО 2В 

ЗАКРМВАЯІЕИ СКОБКИ ИСКЛЯЧИТЕЛЬНО 
НК -> ПРИ ИСПОЛНЕНИИ НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ 2В 
СЛЕДУЯІИЕ ЛИТЕРИ ДО КАВЫЧКИ ИСКЛЯЧИТЕЛЬНО 
.В ♦ N1|+И2-> НАПЕЧАТАТЬ N1 НА ТЕРМИНАЛЕ 38 

В ПОЛЕ ДЛИНУ «N2 СПРАВА 

•ѴОС * РРА+2-7 НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ ИМЯ 43 

СЛОВАРНОЙ СТАТЬИ ДЛЯ СПИСКА СЛОВ 
< N1, N2 — >Р Г НЕ НУЛЬ, ЕСЛИ N1 МЕНЫЕ N2 1В 

О ♦ И1,И2->Р Р НЕ НУЛЬ, ЕСЛИ И1 НЕ РАВНО И2 19 

<• -> НАЧАТЬ ЯОРМАТНОЕ ПРЕОБРАЗОВАНИЕ 37 

<МАКК К ->А ОТМЕТИТЬ ТЕКУІИИ АДРЕС ДЛЯ ССИЛКИ НАЗАД 19 
ККЕ30І.ѴЕ К А-> РАЗРЕІИТЬ ССЫЛКУ НАЗАД В АДРЕС А 19 

( Н -> КОММЕНТАРИИ - ПРОПУСТИТЬ СЛЕДУИИИИ ТЕКСТ 28 

ДО ЗАКРЫВАВШЕЙ КРУГЛОЙ СКОБКИ 

(.') «К -> ПРОЦЕДУРА, КОМПИЛИРУЕМАЯ В *.” 2В 

(♦ЮОР) • И-> ТЕСТ НА ЗАВЕРЯЕНИЕ ЦИКЛА '00 + ЮОР' ' 5 

С НАГОМ И 

(|СООЕ) *К -> ЗАПИСАТЬ В ПОЛЕ КОДА ПОСЛЕДНЕЙ СТАТЬИ 31 
СЛЕДУИИИИ АДРЕС И ЗАКОНЧИТЬ ОПРЕДЕЛЕНИЕ 
(ІВСИ) • М->А,Т ПЕРЕВЕСТИ НОМЕР ЭКРАНА М В ТЕКСТ 48 

(А") • Р-> ПРОЦЕДУРА, КОМПИЛИРУЕМАЯ В *АВОНТ" 29 

(00) «К Ы1,М2-> ВХОД В ЦИКЛ СО СЧЕТЧИКОМ ОТ И2 ДО И1 24 
(ЕХРЕСТ) • А,+N1->А,+ М2 ВВЕСТИ С ТЕРМИНАЛА 8 

+N1 ЛИТЕР ПО АРЕСУ А ДО ПЕРЕВОДА СТРОКИ) 

♦ М2 - ФАКТИЧЕСКОЕ ЧИСЛО ВВЕДЕННЫХ ЛИТЕР 
(РІНО) • -1,АМ,,,А1,Т->СРА,С,ТР/РР ИСКАТЬ СЛОВО Т 34 
В СЛИСКАХ А1,,,АН[ ПРИ УСПЕХЕ ДАТЬ СРА 
ЕГО СТАТЬИ И С - БАЙТ ДЛИНЫ С ПРИЗНАКАМИ 
(Р0Я6ЕТІ • А-> УДАЛИТЬ СЛОВАРНЫЕ СТАТЬИ ПОСЛЕ АДРЕСА А 43 
(ЮОР) • -> ТЕСТ НА ЗАВЕРЯЕНИЕ ЦИКЛА '00 ЮОР' 5 

(ѴОС! • РРА1*2->РРА2,Н/0,Ы ДАТЬ ЧИСЛО СТАТЕЙ N В 43 
СПИСКЕ РГА1+2 И РРА СЛЕДУЯЯЕГО СПИСКА 
ИЛИ НУЛЬ, ЕСЛИ ЕГО НЕТ 

♦ Н1,И2->ИЗ СУММА ЧИСЕЛ N1 И Ы2 17 

♦ ! И,А-> УВЕЛИЧИТЬ ЗНАЧЕНИЕ ПО АДРЕСУ А НА И 17 

+ВЦР * АI->А2,Р ПЕРЕЙТИ К СЛЕДУИШЕМУ БУШЕРУ В ПУЛЕ 25 

♦ ЮОР НК А1,А2,3-> /КОМПИЛЯЦИЯ/ КОНЕЦ ЦИКЛА 47 

Ы-> /ИСПОЛНЕНИЕ/ "00 ♦ЮОР' С «АГОИ N 

• И,А-> ЗАСЛАТЬ ЗНАЧЕНИЕ И ПО АДРЕСУ А II 

!С8Р * -> ЗАПОМНИТЬ АДРЕС ВЕРШИНЫ СТЕКА В ‘СВР* 29 

1 -> ПЕРЕКЛЯЧИТЬ ТЕКСТОВЫЙ ИНТЕРПРЕТАТОР 22 

В РЕЗИН КОМПИЛЯЦИИ 

* N1,N2 — >N3 ПРОИЗВЕДЕНИЕ ЧИСЕЛ N1 И N2 18 

• / N1,N2,43 — >N4 ЧАСТНОЕ ОТ ДЕЛЕНИЯ Н1«Ы2 КА М3 18 

♦/МОО N1,N2,М3->N4,N5 ОСТАТОК N4 И ЧАСТНОЕ N3 18 

ОТ ДЕЛЕНИЯ ПРОИЗВЕДЕНИЯ ИНМ2 НА N3 
) НК -> ЗАКОНЧИТЬ ОПРЕДЕЛЕНИЕ ЧЕРЕЗ ДВОЕТОЧИЕ 32 

|Б ♦НЗ -> ЗАКОНЧИТЬ ИНТЕРПРЕТАЦИЯ ЭКРАНА 41 

М1,Н2-ХИЗ ВЫЧЕСТЬ Н2 ИЗ И1 17 

—> +НЗ -> ИНТЕРПРЕТИРОВАТЬ СЛЕДУЯЯИЙ ЭКРАН 41 

-РІИО • ->А,М ВВЕСТИ СЛОВО И ИСКАТЬ В СЛОВАРЕ) 33 

РЕЗУЛЬТАТ ТОТ ЗЕ, ЧТО И У 'РІИО' 
•ТНАПЛЫВ А, N1- >А, N2 ОТСЕЧЬ КОНЕЧНЫЕ ПРОБЕЛЫ 41 
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/ N1, N2->N3 ЧАСТНОЕ ОТ ДЕЛЕНИЯ N1 НА N2 1В 

/ИОО N1,N2->N3, N4 ОСТАТОК N3 И ЧАСТНОЕ N4 18 

ОТ ДЕЛЕНИЯ N1 НА N2 

, Н-> СКОМПИЛИРОВАТЬ Н НА ВЕРШИНУ СЛОВАРЯ 11 

« -> СКОМПИЛИРОВАТЬ СТРОКУ СО СЧЕТЧИКОМ 2В 

> N1, М2->р Р НЕ НУЛЬ, ЕСЛИ N1 БОЛЬШЕ N2 19 

>= ♦ N1,N2->р Р НЕ НУЛЬ, ЕСЛИ N1 НЕ МЕНЬШЕ N2 19 

>ВООУ СРА — >РРА ОТ ПОЛЯ КОДА К ПОЛ» ПАРАМЕТРОВ 30 

>ІЫ П ->А ПЕРЕМЕННАЯ - СМЕШЕНИЕ ОЧЕРЕДНОЙ ЛИТЕРУ В 

ВО ВХОДНОМ ТЕКСТОВОМ БУ9ЕРЕ ИЛИ ЭКРАНЕ 

М.ІМК • СРА-НРА ПЕРЕЙТИ ОТ ПОЛЯ КОДА К ПОЛ» СВЯЗИ 30 

>МАЯК К ->А ОТМЕТИТЬ ТЕКУНИИ АДРЕС ДЛЯ ССЫЛКИ ВПЕРЕД 19 

>ЫАМЕ * СРА->МРА ПЕРЕЙТИ ОТ ПОЛЯ КОДА К ПОЛ» ИМЕНИ 30 

>К К Ы-> ПЕРЕНЕСТИ И НА СТЕК ВОЗВРАТОВ 9 

7ЯЕБ0И/Е К А-> РАЗРЕШИТЬ ССЫЛКУ ВПЕРЕД В АДРЕСЕ А 19 

? • А-> НАПЕЧАТАТЬ ЗНАЧЕНИЕ ПО АДРЕСУ А ЗВ 

7* • +Н->*Н ПРОВЕРИТЬ, ЧТО +И НЕОТРИЦАТЕЛЬНО 29 

7АВ0ЯТ * Р,Т-> ЕСЛИ Р НЕ НУЛЬ, ТО НАПЕЧАТАТЬ НА 29 

ТЕРМИНАЛЕ СТРОКУ Т И УЙТИ НА "АВОЯТ" 
ЗВЯАЫСН К Р-> ЕСЛИ Р "ЛОІЬ”, ТО КАК "ВРАЖСН", ИНАЧЕ 3 

ПРОДОЛІИТЬ ИНТЕРПРЕТАЦИЮ ОТ АДРЕСА, 
СЛЕДУИИЕГО ЗА АДРЕСОМ ПЕРЕХОДА 

7С0МР « -> ПРОВЕРИТЬ, ЧТО ТЕКУШИИ РЕІИМ - КОМПИЛЯЦИЯ 29 
7С5Р ♦ -> ВЫДАТЬ ОШИБКУ "СБИЛСЯ УКАЗАТЕЛЬ СТЕКА* 29 

ЕСЛИ ОН НЕ РАВЕН ЗНАЧЕНИЮ В "С5Р" 

70ЦР И->М,Н ПРОДУБЛИРОВАТЬ М, ЕСЛИ ЭТО НЕ НУЛЬ 9 

7БЯР » N-7 ВИДАТЬ ОШИБКУ "ИСЧЕРПАНИЕ ПАМЯТИ", ЕСЛИ 29 

ЗАЗОР МЕХДУ ВЕРШИНАМИ СТЕКА И СЛОВАРЯ 
МЕНЕЕ N БАЙТОВ 

7Ц0А0ІМБ • -> ВЫДАТЬ ОШИБКУ "НЕТ ОБРАБОТКИ ЭКРАНА", 29 

ЕСЛИ ВХОДНОЙ ТЕКСТ ИДЕТ НЕ С ЭКРАНА 
7РАІЯ5 • М1,Ы2-> ВЫДАТЬ ОШИБКУ, "НЕПАРНЫЕ СКОБКИ", 29 

ЕСЛИ И1 НЕ РАВНО И2 

73ТАСК * -> ВЫДАТЬ ОШИБКУ "ИСЧЕРПАНИЕ СТЕКА", ЕСЛИ 29 

ОН БОЛЕЕ, ЧЕМ ПУСТ, И "ИСЧЕРПАНИЕ ПАМЯТИ" 

ПРИ ЗАЗОРЕ, МЕНЫЕИ 10 БАЙТОВ 

! -> НАЧАТЬ ОПРЕДЕЛЕНИЕ СЛОВА ЧЕРЕЗ ДВОЕТОЧИЕ 32 

• 01-702 ДЕЛЕНИЕМ 01 НА ЗНАЧЕНИЕ “ВАЗЕ” 37 

ВЫДЕЛИТЬ 1 ЦИ9РУ С КОНЦА И ДОБАВИТЬ ЕЕ 
В БУ9ЕР "РАО", ОСТАВИВ ЧАСТНОЕ 02 
»> О-7А,+М ЗАКОНЧИТЬ ФОРМАТНОЕ ПРЕОБРАЗОВАНИЕ і 37 

ДАТЬ АДРЕС А НАЧАЛА ЛИТЕР И ИХ ЧИСЛО + М 
<5 01->0,0 ВЫДЕЛЯТЬ ЦИФРЫ 01 ПО СЛОВУ ДО 37 

ПОЛУЧЕНИЯ НУЛЯ 

*ТІВ П ->А ПЕРЕМЕННАЯ - ЧИСЛО ЛИТЕР В БУФЕРЕ "ТІВ" В 

I А->М ДАТЬ ЗНАЧЕНИЕ ПО АДРЕСУ А 11 

->СРА ДАТЬ СРА ДЛЯ СЛЕДУЮШЕГО СЛОВА 41 

= М1,М2->Р Р НЕ НУЛЬ, ЕСЛИ Н1 РАВНО Н2 19 

" *НК -> /КОМПИЛЯЦИЯ/ СКОМПИЛИРОВАТЬ СЛЕДУЮЩИЕ 28 

->Т /ИСПОЛНЕНИЕ/ ЛИТЕРЫ ДО КАВЫЧКИ 

ИСКЛЮЧИТЕЛЬНО КАК СТРОКУ СО СЧЕТЧИКОМ 
". 4 Т-> НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ СТРОКУ Т 28 

АВОЯТ СБРОСИТЬ СТЕК И УЙТИ ПО "ОШТ" 28 

АВОЯТ" КН -> /КОМПИЛЯЦИЯ/ ЕСЛИ Р "ИСТИНА" (НЕ НУЛЬ) 29 
Р-> /ИСПОЛНЕНИЕ/ ТО НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ 
СЛЕДУЮІИИ ТЕКСТ ДО КАВЫЧКИ И УЙТИ НА "АВОЯТ" 
АВ0ЯТ8 ♦ -> ВЫДАТЬ ОШИБКУ "НЕПРАВИЛЬНОЕ ЗНАЧЕНИЕ" 29 

АВ8 N1 — >N2 АБСОЛЮТНАЯ ВЕЛИЧИНА 17 

АБАIN +НК А,1 -> /КОМПИЛЯЦИЯ/ КОНЕЦ ЦИКЛА “ВЕБIN АВАІМ" 47 

-> /ИСПОЛНЕНИЕ/ 

АИБЫ ♦ НМ-> ВЫРОВНЯТЬ ВЕРШИНУ СЛОВАРЯ НА +Ы 10 

АІ.І6МН * -7 ВЫРОВНЯТЬ ВЕРШИНУ СЛОВАРЯ НА ПОЛУСЛОВО 10 

АШОТ И-> СМЕСТИТЬ ВЕРШИНУ СЛОВАРЯ НА Ы БАЙТОВ 10 

А1.РНА * И->С ПРЕОБРАЗОВАТЬ N В ЛИТЕРУ С КАК ЦИФР 37 
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АНО И1,Н2-7ЫЗ ПОРАЗРЯДНОЕ ЛОГИЧЕСКОЕ *И" 13 

В/ВЦР ♦ -7І024 ЧИСЛО байтов в елочной БУФЕРЕ 7 

ВАОЫОАО « А™ СООБЩИТЬ О НЕОПОЗНАННОЙ СЛОВЕ 29 

ВАЗЕ П ->А ПЕРЕМЕННАЯ - ТЕКУЩЕЕ ОСНОВАНИЕ СИСТЕМЫ В 

СЧИСЛЕНИЯ ПРИ ВВОДЕ-ВЫВОДЕ ЧИСЕЛ 
ВЕБІИ НК ->А,1 /КОМПИЛЯЦИЯ/ НАЧАЛО ЦИКЛА “8ЕВІІГ 47 
-> /ИСПОЛНЕНИЕ/ 

81. + -744 КОНСТАНТА - КОД ПРОБЕЛА В ДКОИ 7 

ВІАИК ♦ А,Ц-> ЗАСЛАТЬ ПРОБЕЛЫ В Ц БАЙТОВ ПО АДРЕСУ А 22 

ви П ->А ПЕРЕМЕННАЯ - НОМЕР ВХОДНОГО БЛОКА-ЭКРАНА 8 

ВІ.ОСК + Н-7А ДАТЬ АДРЕС А БУ9ЕРА С БЛОКОМ «И 23 

ВООУ> * РРА-7СРА ОТ ПОЛЯ ПАРАМЕТРОВ К ПОЛ» КОДА 30 

ВКАИСН К -> ПРОДОЛЖИТЬ ИНТЕРПРЕТАЦИИ ОТ ЗНАЧЕНИЯ 5 

СЛЕДУЮЩЕГО СКОМПИЛИРОВАННОГО АДРЕСА 
ВКАМСНІ М ПРОДОЛЖЕНИЕ ИНТЕРПРЕТАЦИИ ОТ АДРЕСА В 3 

СЛЕДУЮЩЕМ ПОЛУСЛОВЕ 

ВЦРРЕЯ +М-7А ПРИПИСАТЬ БЛОКУ +М БУ9ЕР 23 

С! С,А-> ЗАСЛАТЬ БАЙТ С ПО АДРЕСУ А 11 

С, ♦ С-> СКОМПИЛИРОВАТЬ БАЙТ С НА ВЕРШИНУ СЛОВАРЯ 11 

СВ А->С ДАТЬ БАЙТ ПО АДРЕСУ А 11 

С* »Н -> /КОМПИЛЯЦИЯ/ СКОМПИЛИРОВАТЬ КОД ПЕРВОЙ 28 

->С /ИСПОЛНЕНИЕ/ ЛИТЕРЫ СЛЕДУЮЩЕГО СЛОВА 

КАК ЛИТЕРАЛ 

СМОѴЕ А1,А2,Ц-> ПЕРЕСЛАТЬ Ц БАЙТОВ ОТ А1 В А2 21 

СНОѴЕ> А1,А2,и-> ПЕРЕСЛАТЬ Ц БАЙТОВ ОТ АДРЕСА А1 21 
ПО АДРЕСУ А2 НАЧИНАЯ С БОЛЬШИХ АДРЕСОВ 
СОМРП.Е К -> КОМПИЛИРОВАТЬ СЛЕДУЮЩИЙ АДРЕС 22 

СОЫБТАИТ «-> ОПРЕДЕЛИТЬ СЛЕДУЮЩЕЕ СЛОВО 32 

КАК КОНСТАНТУ СО ЗНАЧЕНИЕМ И 

СОИТЕХТ П ->А ПЕРЕМЕННАЯ - СПИСОК, С КОТОРОГО 7 

НАЧИНАЕТСЯ ПОИСК ВВОДИМЫХ СЛОВ 

СОЫѴЕЯТ И01,А1,-7И02,А2 ПРЕОБРАЗОВАТЬ И01 И ЛИТЕРЫ 39 
ОТ А1 + 1 В И02 И А2 - АДРЕС 1-ОГ НЕ ЦИ9РЫ 
СОЦЫТ Т—>А,N ДАТЬ АДРЕС ПЕРВОЙ ЛИТЕРЫ И ЧИСЛО 28 

'ЛИТЕР N СТРОКИ СО СЧЕТЧИКОМ Т 

СК -> ВЫВЕСТИ НА ТЕРМИНАЛ ПЕРЕВОД СТРОКИ 6 

СИЕАТЕ -> СОЗДАТЬ НАЧАЛО СТАТЬИ (ДО РРА) ДЛЯ 38 

СЛЕДУЮЩЕГО СЛОВА) 

ЕГО ИСПОЛНЕНИЕ КЛАДЕТ РРА НА СТЕК 
СИЕАТЕ# А НАЧАЛО ИСПОЛНИТЕЛЬНОЙ ЧАСТИ “ѴАЯІАВІ.Е' 3 

СВР »П ->А ПЕРЕМЕННАЯ ДЛЯ КОНТРОЛЬНОГО ХРАНЕНИЯ В 

ЗНАЧЕНИЯ УКАЗАТЕЛЯ СТЕКА 

СЦННЕИТ П ->А ПЕРЕМЕННАЯ - СПИСОК ДЛЯ ДОБАВЛЕНИИ СЛОВ 7 

0. 0-> НАПЕЧАТАТЬ О НА ТЕРМИНАЛЕ И ДАТЬ ПРОБЕЛ 38 

О.К 0,*Ы-7 НАПЕЧАТАТЬ О В ПОЛЕ ДЛИНЫ +И СПРАВА 36 

В< 01,02-7Р Р 'ИСТИНА” і ЕСЛИ В1 МЕНЬШЕ 02 13 

0+ Н01,ЫВ2->ИВЗ СУММА ДВОЙНЫХ ЧИСЕЛ НВ1 И И02 14 

В- N01,НВ2->ИВЗ РАЗНОСТЬ ДВОЙНЫХ ЧИСЕЛ И01-Н02 14 

О/ • 01,02-703 ЧАСТНОЕ 03 ОТ ДЕЛЕНИЯ 01 НА 02 15 

О/МОО » 01,02—>03,04 ОСТАТОК 03 И ЧАСТНОЕ 04 ОТ 13 

ДЕЛЕНИЯ ДВОЙНЫХ ЧИСЕЛ 01 НА 02 

О* НО 1,МЦ2 — >Р Р “ИСТИНА", ЕСЛИ N01 И N02 РАВНЫ 13 

ОАВБ 01->02 АБСОЛЮТНАЯ ВЕЛИЧИНА ДВОЙНОГО ЧИСЛА 14 

ОЕСІМАЦ -> ПЕРЕИТИ В ДЕСЯТИЧНУЮ СИСТЕМУ 22 

ОЕРІИІТІОЫВ -> УСТАНОВИТЬ СПИСОК “СЦРКЕНТ” НА “СОЫТЕХТ" 31 
ПЕЕіа ОРЫ КОЛИЧЕСТВО ЗНАЧЕНИИ НА СТЕКЕ (Ш +Н 20 

ОІВІТ • С,N1 — >N2,Тр/рр N2 - ЗНАЧЕНИЕ ЛИТЕРЫ С КАК 39 

ЦИ9РЫ В СИСТЕМЕ СЧИСЛЕНИЯ ПО ОСНОВАНИЮ N1 
ОМАХ Н01,И02->ЫОЗ БОЛЬШЕЕ ИЗ ДВУХ ЧИСЕЛ 14 

ОМІЧ N01,И02-7И03 МЕНЬИЕЕ ИЗ ДВУХ ЧИСЕЛ 14 

ОМОВ • 01,02->03 ОСТАТОК 03 ОТ ДЕЛЕНИЯ 01 НА 02 15 

ОНЕБАТЕ 01-702 РЕЗУЛЬТАТ ВЫЧИТАНИЯ 01 ИЗ НУЛЯ 14 

00 НК — 7А1,А2,3 /КОМПИЛЯЦИЯ/ НАЧАЛО ЦИКЛА "00” СО 47 

N1,N2-7 /ИСПОЛНЕНИЕ/ СЧЕТЧИКОМ ОТ N2 ДО N1 
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ООЕВ> НК -> НАЧАЛО “ИСПОЛНЕНИЯ* В ОПРЕДЕЛЁНЕН СЛОВЕ ЗА 

ООЕЗВ И ПОДПРОГРАММА - НАЧАЛО РАСІИРЕНИЯ *ООЕВ>“ 3 
ВР! • А-> УСТАНОВИТЬ ВЕРІИНУ СЛОВАРЯ НА АЙРЕС А 10 

ОРІ. +П -->А ПЕРЕНЕННАЯ - ПОЗИЦИЯ ПОСЛЕДНЕЙ ТОЧКИ В 

В ПОСЛЕДНЕЙ ВВЕДЕННОЙ ЧИСЛЕ ОТ КОНЦА 
ВЯОР Н-> УБРАТЬ СО СТЕКА ВЕРХНЕЕ ЗНАЧЕНИЕ 9 

ви< ЦВ1,1102->Р Р “ИСТИНА", ЕСЛИ Ш)1 НЕНЫЕ Ц02 14 

оиир ♦ А,и—> РАСПЕЧАТАТЬ НА ТЕРИИНАЛЕ Ц БАЙТОВ 42 

ОТ АДРЕСА А 

вир Н->И,И ПРОДУБЛИРОВАТЬ ВЕРХНЕЕ ЗНАЧЕНИЕ 9 

В0< 0->Р Р ‘ИСТИНА’, ЕСЛИ О НЕНЫЕ НУЛЯ 13 

ВО» ИО->Р Р “ИСТИНА', ЕСЛИ N0 НУЛЬ 15 

02/ 01->02 РАЗДЕЛИТЬ НА ДВА 13 

ЕІВЕ НК А1,2->А2,2 /КОИПИЛЯЦИЯ/ НАЧАЛО 2-ОЙ ВЕТВИ 47 
-> /ИСПОЛНЕНИЕ/ ВЕТВЛЕНИЯ “Ір“ 

ЕНІТ С-> ВЫВЕСТИ НА ТЕРИИНАЛ ЛИТЕРУ С КОДОЙ С Б 

ЕНРТѴ-ВЦРРЕЯВ * -> ОЧИСТИТЬ БУ4ЕРНУИ ПУЛ 23 

ЕИСЮВЕ • А,С->А,Н1,И2,НЗ ВВОД СЛОВА 27 

ЕЙАВЕ ♦ А,и-> ЗАСЛАТЬ НУЛИ В Ц БАЙТОВ ПО АДРЕСУ А 22 
ЕЯСОИВВ И СИГНАЛИЗАЦИЯ О НЕПРАВИЛЬНОЙ ЗНАЧЕНИИ 4 

ЕХЕСиТЕ СРА-> ИСПОЛНИТЬ СЛОВО ПО СРА ЕГО СТАТЬИ 11 

ЕХІТ К -> ЗАКОНЧИТЬ ИСПОЛНЕНИЕ ТЕКШЕГО ОПРЕДЕЛЕНИЯ 4 

ЕХІТІ И ТОЧКА “ ЕX I Т “ АДРЕСНОГО ИНТЕРПРЕТАТОРА 4 

ЗНАЧЕНИИ В СТЕКЕ 

ЕХРЕСТ А,♦М—> ВВЕСТИ С ТЕРИИНАЛА +Ы ЛИТЕР ПО 40 

АДРЕСУ А| В ЛЕРЕНЕННУИ "ВРАН* ЗАСЛАТЬ 
ТАКТИЧЕСКОЕ ЧИСЛО ВВЕДЕННЫХ ЛИТЕР| 
ЛИТЕРЫ НАПЕЧАТАТЬ НА ТЕРИИНАЛЕ 

РЕЙСЕ »П ->А ПЕРЕНЕННАЯ - ГРАНИЦА ЗАВИТЫ ОТ “Р0Я6ЕТ* 7 

РШ А,и,С-> ЗАСЛАТЬ С В Ц БАЙТОВ ПО АДРЕСУ А 22 

Р1Н0 Т->А,N ИСКАТЬ СЛОВО Т В ТЕКУІЕИ КОНТЕКСТЕ 33 

ЕСЛИ N>0, ТО А»Т И СЛОВО НЕ НАИДЕНО| 
ИНАЧЕ А»СРА НАЙДЕННОЙ СТАТЬИ, М»1 ДЛЯ 
СЛОВ “ІИНЕОІАТЕ" И И —1 ДЛЯ ОСТАЛЬНЫХ 
РІЯ9Т • ->А КОНСТАНТА - АДРЕС НАЧАЛА БУ9ЕРНОГО ПУЛА 2 

Р1Я8ТІ И ЗНАЧЕНИЕ КОНСТАНТЫ *Р1Я8Т“ 2 

РЕВ А ПОЛЕ СВЯЗИ ДЛЯ СПИСКОВ В ПОЛЕ ПАРАНЕТРОВ 33 

СЛОВАРНОЙ СТАТЬИ СЛОВА “РОЯТН“ 

РШВН -> ЗАПИСАТЬ БЛОКИ НА ДИСК И ОЧИСИТИТЬ ПУЛ 24 

РОЯВЕТ -> УДАЛИТЬ СЛОВАРНУЮ СТАТЬ! СЛЕДУІВЕГО СЛОВА 43 

И ВСЕХ СЛОВ, ОПРЕДЕЛЕННЫХ ПОСЛЕ НЕГО 
РОЯТН -> УСТАНОВИТЬ “СОНТЕХТ* НА НАЧАЛЬНЫЙ СПИСОК 33 

РОЯТН-аЗ •> СТАНДАРТНЫЙ КОНТЕКСТ 90РТ-СИСТЕИЫ 33 

РОЯТНі А РРА+2 ДЛЯ СЛОВАРНОЙ СТАТЬИ “РОЯТН“ 33 


вото 

И 


ПОДПРОГРАММА ПЕРЕХОДА ПО ССЫЛКЕ 

4 

н. 

♦ 

Ц-> 

НАПЕЧАТАТЬ Ц НА ТЕРМИНАЛЕ 

В Іі-НОИ СИСТЕМЕ И ДАТЬ ПРОБЕЛ 

ЗВ 

НЕДЕ 


- >А 

ДАТЬ АДРЕС ТЕКУЯЕИ ВЕРІИНН СЛОВАРЯ 

10 

НЕХ 

♦ 

-> 

ПЕРЕЙТИ В ІЕСТНАДЦАТИРИЧНУВ СИСТЕМУ 

22 

НЮ 

•п 

- >А 

ПЕРЕМЕННАЯ - ПОЗИЦИЯ ПОСЛЕДНЕЙ ЛИТЕРЫ, 
ПЕРЕНЕСЕННОЙ В БУ9ЕР “РАО 1 ПО “НОЮ“ 

• 

НОЮ 


С-> 

ПЕРЕНЕСТИ ЛИТЕРУ С НА ВЕРІИНУ БУ9ЕРА РАО 

37 


I К ->И ТЕКУІЕЕ ЗНАЧЕНИЕ Ы СЧЕТЧИКА ЦИКЛА “00“ 24 

Г +К ->Н КОНЕЧНОЕ ЗНАЧЕНИЕ И СЧЕТЧИКА ЦИКЛА “00* 24 

10. • МРА-> НАПЕЧАТАТЬ ИНЯ СЛОВА И ДАТЬ ПРОБЕЛ 31 

ІР НК ->А,2 /КОИПИЛЯЦИЯ/ НАЧАЛО ВЕТВЛЕНИЯ “ІР“ 47 

Р-> /ИСПОЛНЕНИЕ/ 

1ИИЕВ1АТЕ -> ДАТЬ ПРИЗНАК 'ІИНЕОІАТЕ' ПОСЛЕДНЕЙ 31 

СОЗДАННОЙ СЛОВАРНОЙ СТАТЬЕ 

1И0ЕХ ♦ Н1,Н2-> РАСПЕЧАТАТЬ НАЧАЛЬНЫЯ СТРОКУ ЭКРАНОВ 46 

С НОМЕРАМИ ОТ N1 ДО N2 

ІИТЕЯРЯЕТ ♦ -> ИНТЕРПРЕТИРОВАТЬ ВХОДНОЙ ПОТОК 40 

1РЦВН И ПОДПРОГРАММА - ПОМЕСТИТЬ НА СТЕК УКАЗАТЕЛЬ 4 
ИНТЕРПРЕТАЦИИ И ОБОЙТИ СЛЕДУІВУВ СТРОКУ 
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Л К -ХИ ТЕКУЯЕЕ ЗНАЧЕНИЕ И СЧЕТЧИКА ВТОРОГО 24 

ОБ'ЕМЛЯШЕГО ЦИКЛА '00' 

КЕѴ ->С ВВЕСТИ ЛИТЕРУ С ТЕРИИНАЛА 6 

ОМАНЕ • І-РА-ХМРА ПЕРЕИТИ ОТ ПОЛЯ СВЯЗИ К ПОЛЯ ИМЕНИ 30 
ЦАТЕВТ » -ЖГА ДАТЬ ИГА ПОСЛЕДНЕЙ СОЗДАННОЙ СТАТЬИ 31 

ІЕАѴЕ К -> ЗАКОНЧИТЬ ИСПОЛНЕНИЕ ЦИКЛА '00' 24 

ЦЕНВНАВК Н ПОЛНОЕ СЛОВО - ИАСКА ДЛЯ УДАЛЕНИЯ 2 

БИТА ’ 1ИИЕ0І АТЕ“ ИЗ БАЙТА ДЛИНУ 
1ЕН61М5К И ПОЛНОЕ СЛОВО - КАСКА ДЛЯ УДАЛЕНИЯ 2 

БИТОВ МННЕОІАТЕ* И "ЗНІШБЕ" ИЗ БАЙТА ДЛИНЫ 
1ЕИВ2НВК Н ПОЛНОЕ СЛОВО - МАСКА ДЛЯ ВЫСЕЧЕНИЯ 2 

ЧИСТОИ ДЛИНУ ИЗ БАЙТА ДЛИНЫ С ПРИЗНАКАМИ 
1НКИ12 Н ПОДПРОГРАММА ЗАГРУЗКИ ДВУХ ВЕРХНИХ ЗНАЧЕНИИ 4 
НА СТЕКЕ В РЕГИСТРЫ ЯИ2 (ВЕРХНЕЕ) И НН 1 
ИМІТ • ->А КОНСТАНТА - АДРЕС КОНЦА БУФЕРНОГО ПУЛА 2 

ПИХТ» М ЗНАЧЕНИЕ КОНСТАНТЫ ЧІМІТ’ 2 

ИЫКХ ♦ ЦРА- >СРА ПЕРЕИТИ ОТ ПОЛЯ СВЯЗИ К ПОЛЯ КОДА 30 

НВТ ♦ Ы-Х РАСПЕЧАТАТЬ НА ТЕРМИНАЛЕ ЭКРАН N 46 

І.ІТ »К ->Ы ПОМЕСТИТЬ НА СТЕК СЛЕДУИІИИ КОД 23 

ИТ“ «К ->Т ДАТЬ АДРЕС СКОМПИЛИРОВАННОЙ СТРОКИ И 28 
ПРОДОЛІИТЬ ИНТЕРПРЕТАЦИЯ, ОБОЙДЯ ЕЕ 
ИТЕЯАІ Н Ы-> /КОМПИЛЯЦИЯ/ СКОМПИЛИРОВАТЬ И КАК 23 

->И /ИСПОЛНЕНИЕ/ ЛИТЕРАЛ 

ЮАО + И-Х ИНТЕРПРЕТИРОВАТЬ ЭКРАН С НОМЕРОМ *И 41 

ЬООР НК А1,А2,3-> /КОМПИЛЯЦИЯ/ КОНЕЦ ЦИКЛА “00 ЮОР* 47 
-> /ИСПОЛНЕНИЕ/ 

ЬНН1 М ПОДПРОГРАММА ЗАГРУЗКИ ДВОЙНОГО ЗНАЧЕНИЯ КА 4 

ВЕРІИНЕ СТЕКА В РЕГИСТР КИ1 

1.КИ12 М ПОДПРОГРАММА ЗАГРУЗКИ ДВУХ ВЕРХНИХ ДВОЙНЫХ 4 

ЗНАЧЕНИИ НА СТЕКЕ В РЕГИСТРЫ НИ2 (ВЕРХНЕЕ) И ВИ1 
И» • N1,Ы2->0 ПРОИЗВЕДЕНИЕ ДВОЙНОЙ ДЛИНЫ N1 И N2 18 

И/ • Р, N1 - >N2 , N3 ОСТАТОК N2 И ЧАСТНОЕ N3 ОТ 1В 

ДЕЛЕНИЯ ДВОЙНОГО О НА ОДИНАРНОЕ N1 
М/МОО « Ц01,Ц2->ЦЗ,ЦБ4 ОСТАТОК из И ДВОЙНОЕ 16 

ЧАСТНОЕ Ц04 ОТ ДЕЛЕНИЯ Ц01 НА Ц2 
МАХ N1 ,N2->N3 БОЛЬНЕЕ ИЗ ЧИСЕЛ -Н1 И N2 22 

МІМ N1, N2->N3 МЕНЬШЕЕ ИЗ ЧИСЕЛ N1 И N2 22 

МОО N1 ,N2- > N3 ОСТАТОК ОТ ДЕЛЕНИЯ N1 НА N2 18 

ПВО * ->А КОНСТАНТА - АДРЕС НАЧАЛА БУФЕРА МВ6 2 

МЗВ* М ЗНАЧЕНИЕ КОНСТАНТЫ *МБ6' 2 

НХІІІ4К * НРА-Н.РА ПЕРЕИТИ ОТ ПОЛЯ ИМЕНИ К ПОЛЯ СВЯЗИ 30 

NАМЕ> • ЫРА-ХСРА ПЕРЕИТИ ОТ ПОЛЯ ИМЕНИ К ПОЛЯ КОДА 30 

НЕ6АТЕ Ы1-ХЫ2 РЕЗУЛЬТАТ ВЫЧИТАНИЯ И1 ИЗ НУЛЯ 17 

МЕХТ И ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР 1 

НЕХТ1 И ПРОДОЛІЕНИЕ АДРЕСНОЙ ИНТЕРПРЕТАЦИИ ОТ 1 

♦ОРТ-АДРЕСА В РЕГИСТРЕ 14 

ИОТ Ы1-ХЫ2 ПОРАЗРЯДНОЕ ИНВЕРТИРОВАНИЕ 13 

ИЦМВЕЯ 4 Т-ХЫО ПРЕОБРАЗОВАТЬ СТРОКУ Т В ЧИСЛО ИД 39 

ОРРВЕТ »П -ХА ПЕРЕМЕННАЯ - ДОБАВКА К НОМЕРУ БЛОКА 8 

ОК И1.И2-ХИЗ ПОРАЗРЯДНОЕ ЛОГИЧЕСКОЕ "ИЛИ' 13 

ОѴЕЯ N1,Н2-ХН1,И2,И1 ПРОДУБЛИРОВАТЬ ВТОРОЕ СВЕРХУ 9 

РАО -ХА ДАТЬ АДРЕС ТЕКУЯЕИ ВЕРКИНЫ БУФЕРА РАО 37 

РІСК ЫН,...,ЫО,+И-ХИН,...,ЫО,ИН ПРОДУБЛИРОВАТЬ 12 

И-Е СВЕРХУ ЗНАЧЕНИЕ 

РОР N ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР СО СНЯТИЕМ 3 

ВЕРХНЕГО ЗНАЧЕНИЯ С ВЕРШИНЫ СТЕКА 
Р0РРЦТ1 М ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР СО СНЯТИЕМ 3 

ВЕРХНЕГО И ЗАМЕНОЙ ПРЕДИДУІЕГО НА ЗНАЧЕНИЕ 

ИЗ РЕГИСТРА АЫ1 

РЯЕѴ *С -ХА ПЕРЕМЕННАЯ - ТЕКУІИИ БЛОЧНЫЙ БУФЕР 7 

РЦЗНАИІ М ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР С ПОМЕЩЕНИЕМ 3 
ЗНАЧЕНИЯ ИЗ РЕГИСТРА АЫ1 НА ВЕРШИНУ СТЕКА 
РЦБН2ЯИ1 М ВХОД 8 АДРЕСНЫЙ ИНТЕРПРЕТАТОР С ЗАМЕНОЙ 3 
ВЕРХНЕГО НА ДВОЙНОЕ ЗНАЧЕНИЕ ИЗ РЕГИСТРА ЯЫ1 
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рцтвыі и вход в адресный интерпретатор с заменой 3 

ВЕРХНЕГО ЗНАЧЕНИЯ НА ЗНАЧЕНИЕ ИЗ ВЫ1 
0ЦЕНѴ + -> ВВЕСТИ с ТЕРМИНАЛА ЛИТЕРЫ В БУФЕР ”ТІВ" » 40 

ЧИСЛО ВВЕДЕННЫХ ЛИТЕР ЗАСЛАТЬ В "*ТIВ" 
аиіт СБРОСИТЬ СТЕК ВОЗВРАТОВ, перейти В РЕЖИМ 2В 

ИСПОЛНЕНИЯ И продоліить интерпретации 
В. » -> РАСПЕЧАТАТЬ НА ТЕРМИНАЛЕ СТЕК ВОЗВРАТОВ 42 

В> К ->И ПЕРЕНЕСТИ ЗНАЧЕНИЕ СО СТЕКА ВОЗВРАТОВ 9 

В« К ->И СКОПИРОВАТЬ ВЕРШИНУ СТЕКА ВОЗВРАТОВ 9 

ВВЬК « А,+И-> ПРОЧЕСТЬ ЭКРАН +Н ПО АДРЕСУ А 6 

ВОВОР *К -> СНЯТЬ ЗНАЧЕНИЕ СО СТЕКА ВОЗВРАТОВ 9 

ВЕСЦВ5Е +НК -> СКОМПИЛИРОВАТЬ ОБРАШЕНИЕ К КОМПИЛИРУЕМОМУ 31 

В ДАННЫЙ МОМЕНТ ОПРЕДЕЛЕНИЮ 

КЕМЕМВЕВ + -> ОПРЕДЕЛИТЬ СЛОВО, ИСПОЛНЕНИЕ КОТОРОГО 4! 

УНИЧТОХАЕТ ВСЕ ПОСЛЕДУЮЩЕ ОПРЕДЕЛЕНИЯ 
ВЕРЕАТ НК А1,1,А2,2-> /КОМПИЛЯЦИЯ/ КОНЕЦ ЦИКЛА 47 

-> /ИСПОЛНЕНИЕ/ -ВЕВІМ МНИЕ ВЕРЕАТ" 

ВОШ ИМ,ИМ-1,.. . ,И0, + М->ИМ-1,.. ,ИО,МН ЦИКЛИЧЕСКИ 12 

ПЕРЕСТАВИТЬ N ВЕРХНИХ ЗНАЧЕНИИ 

ВОТ N1,И2,ИЗ->И2,ИЗ,И1 ПЕРЕСТАВИТЬ ТРИ 9 

ВЕРХНИХ ЗНАЧЕНИЯ ПО ЧАСОВОЙ СТРЕЛКЕ 
ВР! • А-> УСТАНОВИТЬ УКАЗАТЕЛЬ ВЕРШИНЫ СТЕКА 20 

ВОЗВРАТОВ НА А 

ВРІ • ->А АДРЕС ТЕКУЩЕЙ ВЕРШИНЫ СТЕКА ВОЗВРАТОВ 20 

ВО »С ->А ПЕРЕМЕННАЯ - АДРЕС ДНА СТЕКА ВОЗВРАТОВ 7 

В. • -> РАСПЕЧАТАТЬ НА ТЕРМИНАЛЕ СТЕК ДАННЫХ 42 

8>0 * N->0 РАСШИРИТЬ N ДО ЧИСЛА ДВОИМОЙ ДЛИНЫ 0 14 

БАѴЕ-ВЦРРЕВЗ -> ЗАПИСАТЬ НА ДИСК ВСЕ ИСПРАВЛЕННЫЕ БЛОКИ 26 
ЗСВ +П ->А ПЕРЕМЕННАЯ - НОМЕР ЭКРАНА В "НВТ" 8 

ЗЮЫ М-> ДОБАВИТЬ В ФОРМАТНУЮ СТРОКУ ЗНАК 37 

МИНУС, ЕСЛИ ЧИСЛО Ы ОТРИЦАТЕЛЬНО 
6МЦ06Е • -> УСТАНОВИТЬ В ЕДИНИЦУ ЮЛАГ "ВМЦ06Е" 31 

В ПОСЛЕДНЕЙ СОЗДАННОЙ СТАТЬЕ 

ВМАР8ТК » А1,А2,АЗ-> РАСПЕЧАТКА СТЕКА ОТ А1 ДО А2 42 

С ТЕКСТОМ А31 ВОЗВРАТ "ЧЕРЕЗ ОДИН" 

ЗР! * А-> УСТАНОВИТЬ УКАЗАТЕЛЬ ВЕРШИНЫ СТЕКА НА А 20 

БРІ + ->А АДРЕС ТЕКУЩЕЙ ВЕРШИНЫ СТЕКА ДАННЫХ 20 

БРАСЕ -> НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ ПРОБЕЛ 23 

БРАСЕВ ♦Н-> НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ *Ы ПРОБЕЛОВ 23 
БРАИ П ->А ПЕРЕМЕННАЯ ДЛЯ РЕЗУЛЬТАТА "ЕХРЕСТ" 8 

6ТАТЕ П ->А ПЕРЕМЕННАЯ С СОСТОЯНИЕМ ТЕКСТОВОГО 8 

ИНТЕРПРЕТ АТОРАі "ИСТИНА" - КОМПИЛЯЦИЯ 
ЗЫАР Н1 ,М2->И2,Ы1 ОБМЕНЯТЬ МЕСТАМИ 2 ВЕРХНИХ 9 

30 +П ->А ПЕРЕМЕННАЯ - АДРЕС ДНА СТЕКА ДАННЫХ 7 

ТЕМР М РАБОЧАЯ ОБЛАСТЬ ИЗ ДВУХ ДВОЙНЫХ СЛОВ 2 

ТНЕИ НК А,2-> /КОМПИЛЯЦИЯ/ КОНЕЦ ВЕТВЛЕНИЯ "ІР" 47 
-> /ИСПОЛНЕНИЕ/ 

ТНВЦ ♦ +N1,*М2-> ИНТЕРПРЕТИРОВАТЬ ЭКРАНЫ С НОМЕРАМИ 41 

ОТ +М1 ДО +N2 ВКЛЮЧИТЕЛЬНО 

ТІВ ->А АДРЕС ВХОДНОГО ТЕКСТОВОГО БУФЕРА 2 

ДЛЯ ВВОДА С ТЕРМИНАЛА 

ТІВЮ М 90РТ-АДРЕС НАЧАЛА БУФЕРА ТІВ 2 

ТУРЕ А, +Ш-> НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ -"И ЛИТЕР 6 

ОТ АДРЕСА А 

Ц, Ц-> НАПЕЧАТАТЬ Ц НА ТЕРМИНАЛЕ КАК 38 

ЧИСЛО БЕЗ ЗНАКА 

II.В ♦ Ц,+М-> НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ ЧИСЛО Ц 38 

В ПОЛЕ ДЛИНЫ +Н СПРАВА 

0< Ц1 ,Ц2->Р Р ИСТИНА, ЕСЛИ 111 МЕНЬШЕ Ц2 16 

ЦМ* Ц1 ,Ц2->Ц0 ПРОИЗВЕДЕНИЕ ЦО ЧИСЕЛ 1)1 И 1)2 16 

им/ноо цд,ш->ц 2 ,из остаток иг и частное из от и 

ДЕЛЕНИЯ ив НА Ш 

ЦИЗМиОБЕ « -> УСТАНОВИТЬ В НУЛЬ ФЛАГ "БМиОЗЕ" 31 

В ПОСЛЕДНЕЙ СОЗДАННОЙ СТАТЬЕ 
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ішта нк а, і-> /компиляция/ конец цикля ’вевіа цмтіі* 47 

Р-> /ИСПОЛНЕНИЕ/ 

ЦРОАТЕ -> ОТМЕТИТЬ ТЕКШИЙ БЛОК КАК ИЗИЕНЕННМИ 25 
ЦВЕ «С ->А ПЕРЕМЕННАЯ - СЛЕДУвЩИИ БЛОЧНЫЙ БУ9ЕР 7 

ѴАРІАВШЕ -> ОПРЕДЕЛИТЬ СЛЕДУЮЩЕЕ СЛОВО КАК 32 

ПЕРЕМЕННУ* С НАЧАЛЬНЫМ ЗНАЧЕНИЕМ НУЛЬ 
ѴОС-ЫМК «П ->А ПЕРЕМЕННАЯ - АДРЕС ПОЛЯ СВЯЗИ ПОСЛЕДНЕГО 33 
СОЗДАННОГО ПО “ѴОСАВІН.АРѴ" СПИСКА СЛОВ 
ѴОСАВШАЯѴ -> ОПРЕДЕЛИТЬ СЛЕДУИЩЕЕ СЛОВО КАК 33 

СПИСОК НАД ТЕКУЩИМ ЗНАЧЕНИЕМ "СЦРРЕМТ* 
ѴОСАВШАЯУ* А НАЧАЛО ИСПОЛНИТЕЛЬНОЙ ЧАСТИ "ѴОСАВШАРѴ* 33 
Ѵ0С5 ♦ -> РАСПЕЧАТАТЬ НА ТЕРМИНАЛЕ ТЕКУЩИЙ 43 

ПОРЯДОК ПОИСКА СЛОВ В СЛОВАРЕ 

ИВІ.К • А,+Ы-> ЗАПИСАТЬ ЭКРАН +Ы ИЗ АДРЕСА А Ь 

ИННЕ НК 1 — >А,2 /КОМПИЛЯЦИЯ/ ВЕТВЛЕНИЕ "ИННЕ” В 47 
Р-> /ИСПОЛНЕНИЕ/ ЦИКЛЕ "ВЕВІИ ИННЕ ЯЕРЕАТ* 
ИІОТН • ->И КОНСТАНТА - МАКСИМАЛЬНАЯ ДЛИНА ИМЕНИ 7 
НОВО С->Т ВВЕСТИ СЛОВО ДО СТОП-ЛИТЕРЫ С| 27 

ДАТЬ ЕГО АДРЕС КАК СТРОКИ СО СЧЕТЧИКОМ 
Ы0Я03 + -> РАСПЕЧАТАТЬ НА ТЕРМИНАЛЕ ИМЕНА СЛОВ 44 

ИЗ СПИСКА "С0ЫТЕХТ” 

ХОР М1,И2->ЫЗ ПОРАЗРЯДНОЕ "ИСКЛЮЧАЮЩЕЕ ИЛИ* 13 

О « ->0 КОНСТАНТА НУЛЬ (ЗНАЧЕНИЕ *Л0ІЬ*> 7 

0< N->7 Р "ИСТИНА*, ЕСЛИ N ОТРИЦАТЕЛЬНО 13 

0<> * Н->Р Р “ИСТИНА*, ЕСЛИ И НЕ НУЛЬ 19 

О! • А-> ЗАСЛАТЬ НУЛЬ ПО АДРЕСУ А 11 

0= М->Р Р “ИСТИНА", ЕСЛИ И РАВНО НУЛЮ 13 

1» И1->М2 УВЕЛИЧИТЬ Н1 НА 1 17 

1+! ♦ Д-> УВЕЛИЧИТЬ НА 1 ЗНАЧЕНИЕ ПО АДРЕСУ А 17 

1- М1->Ы2 УМЕНЬШИТЬ Н1 НА 1 17 

2* М1->Ы2 УВЕЛИЧИТЬ М1 НА 2 17 

2! МО,А-> ЗАСЛАТЬ ДВОЙНОЕ N0 ПО АДРЕСУ А 20 

2* ♦ Ы1 — >М2 АРИФМЕТИЧЕСКИЙ СДВИГ ВЛЕВО НА 1 20 

2- М1->М2 УМЕНЬШИТЬ N1 НА 2 17 

2/ М1->М2 АРИФМЕТИЧЕСКИЙ СДВИГ ВПРАВО НА 1 20 

2« А->М0 ДАТЬ ДВОЙНОЕ ЗНАЧЕНИЕ ПО АДРЕСУ А 20 

2С0№ТАМТ М0-> ОПРЕДЕЛИТЬ СЛЕДУИЩЕЕ СЛОВО КАК 32 

КОНСТАНТУ СО ЗНАЧЕНИЕМ НО 

20РОР М0-> СНЯТЬ ВЕРХНЕЕ ДВОЙНОЕ ЗНАЧЕНИЕ 12 

20ЦР МО->МО,ЫО ПРОДУБЛИРОВАТЬ ДВОЙНОЕ ЗНАЧЕНИЕ 12 

2ИТ «К ->М0 ПОМЕСТИТЬ НА СТЕК СЛЕДУЮЩИЕ 2 КОДА 23 

21ІТЕРАШ «Н М0-> /КОМПИЛЯЦИЯ/ СКОМПИЛИРОВАТЬ N0 КАК 23 

->М0 /ИСПОЛНЕНИЕ/ ЛИТЕРАЛ 

20ѴЕР М01,М02->М01,М02,МВ1 ПРОДУБЛИРОВАТЬ ВТОРОЕ 12 

ДВОЙНОЕ СВЕРХУ 

2Р0Р М ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР СО СНЯТИЕМ 3 

ДВОЙНОГО ЗНАЧЕНИЯ С ВЕРІИНЫ СТЕКА 
2Р0РРЦТ1 М ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР СО СНЯТИЕМ 3 

ДВОЙНОГО ВЕРХНЕГО ЗНАЧЕНИЯ СО СТЕКА И 
ЗАМЕНОЙ ПРЕДЫДУЩЕГО ДВОЙНОГО НА 4-БАИТНОЕ 
ЗНАЧЕНИЕ ИЗ РЕГИСТРА РИ1 

2РЦБНРМ1 И ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР С ПОМЕЩЕНИЕМ 3 
ДВОЙНОГО ЗНАЧЕНИЯ ИЗ РМ1 НА ВЕРІИНУ СТЕКА 
2РЦТРМ1 И ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР С ЗАМЕНОЙ 3 

ДВОЙНОГО ВЕРХНЕГО ЗНАЧЕНИЯ НА 4-БАЙТНОЕ 
ЗНАЧЕНИЕ ИЗ РЕГИСТРА РМ1 

2Р0Т М01,М02,МОЗ->М02,ИОЗ,М01 ПЕРЕСТАВИТЬ ТРИ 12 

ВЕРХНИХ ДВОЙНЫХ ПО ЧАСОВОЙ СТРЕЛКЕ 
2БМАР МО1,М02->М02,М01 ОБМЕНЯТЬ МЕСТАМИ ДВА 12 

ВЕРХНИХ ДВОЙНЫХ ЗНАЧЕНИЯ 

2ѴАР1АВШЕ -> ОПРЕДЕЛИТЬ СЛЕДУИЩЕЕ СЛОВО КАК ПЕРЕМЕННУЮ 32 
ДВОЙНОЙ ДЛИНЫ С НАЧАЛЬНЫМ ЗНАЧЕНИЕМ НУЛЬ 
♦ ОРТ-СИСТЕМА * -> ТЕКСТОВЫЙ ИНТЕРПРЕТАТОР ФОРТ-СМГСТЕМЫ 40 
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Экран номер 1 

( 09.09.66 НАЧАЛО МОДЕЛИ ФОРТ-СИСТЕМЫ I 

ВЕС IНАС ( КОНСТАНТЫ ПЕРИОДА КОМПИЛЯЦИИ ) 

128 С0М8ТАМТ 8ІРІА6 ( ПРИЗНАК ЧНИЕВІАТЕЧ 

32 СОИВТАМТ 83Р1АБ ( ПРИЗНАК -5РШ0ВЕ’> 

31 С0Н8ТАИТ ИЕЙВ { МАСКА ДЛЯ ВЫСЕЧЕНИЯ ОЛИНЫ) 

ІВРІ.А6 236 • 64 ♦ С0И8ТАИТ ІОИОРВ ( ФИКТИВНОЕ ИМЯ > 

< НАЧАЛЬНОЕ ЯДРО С АДРЕСАЦИЕЙ ОТ РЕГИСТРА ЯРОЯТН) 

ВТААТ-СООЕ «, КРОЯТН 1)31X10, ( АДРЕСНЫЙ ИНТЕРПРЕТАТОР) 

Ні НЕЙ 14 О I, ЯІ ЯРОКТН Ш, КІ ЯТИО Ай, 

М: НЕХТ1 14 ЯМАЕК N3, 13 0 (, 14 ЯРОКТН Ш, 

13 ЯМА8К N3, 13 ЯРОЯТН АЯ, 14 ЯТЫО АЯ, 13 ВЯ, 


Экран комер 2 

< 09.09.86 СИСТЕМНЫЕ ПЕРЕМЕННЫЕ И КОНСТАНТЫ ) 

СОЫЗТ М36 Ні МВБ* О Н, ( АДРЕС НАЧАЛА БУФЕРА МЗв) 

СОЯЗТ РІЯ8Т Ні РІЯЗТФ О Н, ( АДРЕС НАЧАЛА ПЫЛА) 

СОХШТ ЫМІТ Ні ими* О Н, ( АДРЕС КОНЦА ПЫЛА) 

С0&5Т ТІВ Ні ТІВФ О Н, ( АДРЕС НАЧАЛА БЫФЕРА ТІВ) 

4 АН ЗН 

Иі І.ЕМБМАВК 233 ЫРІАВ - 8>0 р, ( БАЙТ ДЛИНЫ БЕЗ 1ММЕ01АТЕ) 

Н: І.ЕХІБ1НгК 253 8ІРІА6 - І5РІАБ - 5)0 Р, ( БЕЗ ІИМО И БНОВ) 

Мі 1ЕИВ2МЗК НЕЧВ 3>0 Р, ( БАЙТ ДЛИНЫ С ЧИСТОМ ДЛИНОЙ) 

Ѳ АІ 16N 

Ні ТЕНР 16 АНОТ < РАБОЧАЯ ОБЛАСТЬ) 


Экран номер 3 

( 09.09.38 ДОПОЛНИТЕЛЬНЫЕ ВХОДИ В АДРЕСНЫЙ ИНТЕРПРЕТАТОР) 

Ні ООЕБІ ЯІ ЯРІ18Н, ЯІ 4 (, 13 ІА, ЯІ ЯРОЯТН ЗН, 

Аі СЯЕАТЕФ ЯМ 1 14 ЕЯ, I ПОМЕСТИТЬ РРА СТАТЬИ) 

Мі РЦЗНЯИ1 ЯЗТАСК ЯТЫО ЗЯ, ( ПОМЕСТИТЬ ЗНАЧЕНИЕ ИЗ НН1) 

Ні РЦТЯН1 ЯМ 1 РЫТ, ЯМЕXТ ВЯ, < ЗАМЕНИТЬ ВЕРХНЕЕ) 

Н: 2Р0Р ЯЗТАСК ЯТЫО АЯ, ( СНЯТЬ ДВА ВЕРХНИХ) 

Мі РОР ЯЗТАСК ЯТЫО АЯ, НКІЕХТ ВЯ, ( СНЯТЬ ВЕРХНЕЕ) 

Ні Р0РРЦТ1 ЯЗТАСК ЯТЫО АЯ, ( СНЯТЬ ВЕРХНЕЕ И ЗАМЕНИТЬ) 

ЯИ1 РЫТ, ЯМЕХТ ВЯ, ( ЗНАЧЕНИЕМ ИЗ ЯИ1І 

Ні 2РЦЗННИ1 ЯЗТАСК ЯТЫО ЗЯ, ( ПОЛОІИТЬ ДВОЙНОЕ НА СТЕК) 

Мі РЦЗН2ЯИ1 ЯЗТАСК ЯТЫО ЗЯ, ( ЗАМЕНИТЬ ВЕРХНЕЕ НА ДВОЙНОЕ) 

Мі 2РЦТЯИ1 ЯИ1 ТЕНР ВТ, ( ЗАМЕНИТЬ ДВОЙНОЕ ВЕРХНЕЕ) 

РІЯЗТ (, * ), ТЕНР НѴС, ЯМЕХТ ВЯ, 

Ні 2Р0РРЦТ1 ЯЗТАСК ЯТЫО АН, ЯЗТАСК ЯТИО АЯ, 2РІІТНН1 В, 


Экран номер 4 

< 09.09.38 ВСПОМОГАТЕЛЬНЫЕ ПОДПРОГРАММЫ! ВОЗВРАТ В РЕГ.14) 

Мі ІНИИІ2 НН1 ВЕСОМО ІН, ЯН2 РІІІІ., 14 ВЯ, 

Мі І.ЯИІ ТЕНР (, 4 ), РІЯЗТ НѴС, ЯИ1 ТЕНР Ь, 14 ВЯ, 

Мі 1ЯИ12 ТЕИР I, 3 I, РІЯЗТ МѴС, ЯИ1 ТЕМР 4 4(,Ч, 

ЯИ2 ТЕМР Е, 14 ВЯ, 

И: ЗОТО 14 0 (, 0 14 ЬН, МЕХТ1 В, 

Ні ІРЦВН ЯІ РЦВН, ЯИ2 ЯЫ2 ЗН, ЯИ2 0 (, ЯІ ЯРОЯТН ІС, 

ЯІ 2 (, ЯІ ЯИ2 ІА, 14 ВЯ, 

СООЕ ЕХІТ 

Ні ЕХІТІ ЯІ НРОР, ЯІ ЯНАВК ИЯ, ЯМЕХТ ВЯ, ЕМО-СОВЕ 
Мі ЕЯС0Н08 14 ВОТО ВАІ., 1 АВОЯТЗ С 
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Экран номер 5 


( 09.09. 66 ВЯАНСН 7ВКАНСН 11.00Р/ «»\_00Р/ ) 

СОРЕ ВЯАНСН Ні ВКАИСН8 

КІ 0 (, НІ НРОКТН ІН, КІ КМАЗК НК, КНЕХТ ВК, 

СОРЕ 7ВКАНСН КН1 РОР, КН1 КН! СТА, ВКАИСН» 81, 

НІ ЯТИО АН, КИЕХТ ВО, 

СОРЕ аоор) ЯИІ 1 ІА, 1 -Р в, 

СОРЕ (НООР) КМ 1 РОР, 

1 *Н О КРІЯ8Т ІН, О КЗЕС0ІХ0 8Н, О ННАЗК НК, 

О НН1 АН, НН1 КРІЯВТ АН, КН КРІКЗТ 6ТН, 

О КМА8К сик, ВКАНСНІ 6НН, ККЕТ 6 (, О КНЕТ ІА, 

НІ КТНО АН, КНЕХТ ВК, ЕНО-СООЕ 


Экран номер 6 

( 09.09.86 КЕУ СК ЕНІТ ТУРЕ (ЕХРЕСТ/ КВІК И81К ) 

( СЛЕДУЮЩИЕ ОПРЕДЕЛЕНИЯ РАНТ ТОЛЬКО ИНЕНА ПРОЦЕДУР) 

СОРЕ КЕУ ( ->С ВВЕСТИ ЛИТЕРУ С ТЕРМИНАЛА) ЕНО-СООЕ 

СОРЕ СК I -> ВЫВЕСТИ ПЕРЕВОД СТРОКИ ) ЕНО-СООЕ 

СОРЕ ЕНІТ ( С-> ВЫВЕСТИ ЛИТЕРУ С КОДОМ С НА ТЕРМИНАЛ) 

ЕНО-СООЕ 

СОРЕ ТУРЕ ( А,Н-> ВЫВЕСТИ НА ТЕРМИНАЛ N ЛИТЕР ПО АДРЕСУ А) 

ЕНО-СООЕ 

СОРЕ (ЕХРЕСТ) ( А,НІ->А,М2 ВВЕСТИ С ТЕРМИНАЛА НЕ БОЛЕЕ 

НІ ЛИТЕР /ДО ПЕРЕВОДА СТРОКИ/ В 6У9ЕР ПО АДРЕСУ А) 

Н2 - АРКТИЧЕСКОЕ ЧИСЛО ВВЕДЕННЫХ ЛИТЕР) ЕНО-СООЕ 
СООЕ КВІК ( А,Н-> ПРОЧИТАТЬ ЭКРАН Н В БЭ9ЕР А) ЕНР-СОРЕ 
СОРЕ ЫВІК ( А,М-> ЗАПИСАТЬ ЭКРАН М ИЗ БУ9ЕРА А ) ЕНО-СООЕ 


Экран номер 7 

( 09.09.86 КОНСТАНТЫ И СИСТЕМНЫЕ ПЕРЕМЕННЫЕ ) 

64 С0И8ТАНТ ВІ ( КОД ПРОБЕЛА) 

1024 С0Н8ТАМТ В/ВЦР ( ДЛИНА БУМЕРА ДЛЯ ЭКРАНА) 

Ы.ЕМ8 СОИВТАИТ И1РТН ( МАКСИМАЛЬНАЯ ДЛИНА СЛОВА I 

О СОНЗТАМТ 0 ( ЧИСЛО НОЛЫ 

ЧАЯІАВІЕ Ц8Е ( СЛЕДУН1ИИ БУ4ЕР В ПУЛЕ) 

ѴАЯІАВІЕ РКЕѴ ( ТЕКУЩИЙ БУ МЕР В ПУЛЕ) 

ѴАК1АВІЕ 30 ( АДРЕС ДНА СТЕКА ДАННЫХ) 

ѴАКІАВЬЕ КО < АДРЕС ДНА СТЕКА ВОЗВРАТОВ) 

ѴАКІАВЕЕ РЕЙСЕ ( ГРАНИЦА ЗАВИТЫ ОТ ‘РОКВЕТ*) 

ОАКІАВЬЕ СОНТЕХТ ( ТЕКУЯИИ СПИСОК - НАЧАЛО ПОИСКА) 

ѴАНІАВЬЕ СиККЕНТ ( ТЕКУІИИ СПИСОК - КУДА ДОБАВЛЯЕМ) 


Экран номер 8 

( 09.09.86 СИСТЕМНЫЕ ПЕРЕМЕННЫЕ - ОКОНЧАНИЕ) 

ѴАКІАВЕЕ ОРРБЕТ ( ДОБАВКА К НОМЕРУ ЭКРАНА) 

ѴАКІАВІЕ ВАЗЕ ( ОСНОВАНИЕ СИСТЕМЫ СЧИСЛЕНИЯ) 

ѴАКІАВ1.Е ЗТАТЕ ( СОСТОЯНИЕ ТЕКСТОВОГО ИНТЕРПРЕТАТОРА) 
ѴАКІАВЬЕ РРЦ ( ПОЗИЦИЯ ДЕСЯТИЧНОЙ ТОЧКИ В ЧИСЛЕ) 

ѴАКІАВЬЕ С5Р ( ДЛЯ КОНТРОЛЬНОГО ХРАНЕНИЯ УКАЗАТЕЛЯ) 
ѴАРІАВЬЕ НЬО ( УКАЗАТЕЛЬ ВЕРІИНЫ БУМЕРА •РАО") 

ѴАК1АВ1.Е ВЬК ( НОМЕР ВХОДНОГО ЭКРАНА ИЛИ НОЛЬ) 

ѴАКІАВІ.Е >ІН ( ПОЗИЦИЯ ОЧЕРЕДНОЙ ЛИТЕРЫ НА ВХОДЕ) 

ѴАЯІАВІ.Е ЗРАМ ( ЧИСЛО ЛИТЕР, ВВЕДЕННЫХ ПО "ЕХРЕСТЧ 
ѴАКІАВІ.Е 8ТІВ ( ЧИСЛО ЛИТЕР, ВВЕДЕННЫХ В БУ МЕР "ТІВЧ 
ѴАКІАВЬЕ ЗСК ( НОМЕР ЭКРАНА, РАСПЕЧАТАННОГО В ■ЦЗТ") 
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Экран номер 9 


( 31.03.86 ОИР ?0ИР ОПОР 8ИАР ОѴЕК >В В> В» РОЙОР ВОТ 1 
СООЕ ОИР ( И->Н,И> ВЫ 1 РИН, РивНРЫІ В, ЕМ0-С00Е 

і ?оир < н->н,И| о->о ) оир ір оир тнем і 

СООЕ ОВОР ( И-> ) ВВТАСК ВТЫО ЙВ, ВНЕХТ ВВ, ЕВО-СООЕ 
СООЕ ВИАР ( Ы1,М2->М2,Ы1) 

14 1.ННИ12 ВАС, РИ2 БЕСОВО ВТН, РиТРИІ В, ЕВО-СООЕ 
СООЕ ОѴЕВ ( Ы1,Ы2->Ы1,Ы2,Ы1) ВВ1 ВЕСОМО ІН, РИЗНВИ1 В, ЕВО-СООЕ 
СООЕ >В ( М-> ) ВЫ 1 РОР, АН1 ВРИЗН, ВВЕХТ ВВ, ЕВО-СООЕ 
СООЕ В> ( ->Н) ВВ1 ВРОР, РИ5НВН1 В, ЕВО-СООЕ 

сооЕ ві < — >и) вві вршл, ривнвиі в, ево-соое 

СООЕ ВОВОР I -> I ВВЕТ ВТВО АВ, ВВЕХТ ВВ, ЕВО-СООЕ 

і ВОТ ( ВІ ,В2,ВЗ->В2,ВЗ,В1 ) >В ВИЙР В> ВНАР | 


Экран номер 10 


( 31.03.86 НЕВЕ АІЛОТ АІЛБВ АІІВНН ОР! 1 

СООЕ НЕВЕ ( ->А ) ВН1 ВО ЬР, РЧЗНВИ1 В, ЕВО-СООЕ 
СООЕ АІЛОТ ( В-> 1 ВО РІВ8Т АН, ' РОР В, ЕВО-СООЕ 

СООЕ АС1ВВ ( В-> ) ВВІ О I, ВО ВРОВТН ІА, 

О (, ВВІ О НѴІ, 1 I, 7 ВН1 ), 0 (, В К1 ИѴС, 

ВН1 РИІЛ, ВИ2 ВИ1 ІСВ, ВО ВВІ АВ, во о вств, 
ВО ВН2 ВВ, РОР В, ЕВО-СООЕ 
I АІЛВВН ( •> ) 2 А1ЛВВ I 

СООЕ ОР! ( А-> ) во риіл, во яиавк ВВ, РОР в, 
ЕВО-СООЕ 


Экран номір И 

( 31.03.86 ! О! • С! СІ , С, ЕХЕСИТЕ ) 

СООЕ > ( Н,А-> ЗАСЛАТЬ В ПО АДРЕСУ Й) 14 І.НЯИ12 ВАС, 

ВИ2 ВНАЗК ВВ, ВН1 О (, ВН2 ВРОВТН 8ТН, 2Р0Р В, ЕВО-СООЕ 
I 0! ( А-> 1 О ВНАР ! | 

СООЕ I I А->Н РАЗЫМЕНОВАТЬ А) ВН2 РОИ, ВН2 ВПАВК НЯ, 

ЯН1 0 (, ВН2 ВРОВТН СН, РИТВИ1 В, ЕВО-СООЕ 
СООЕ С« ( А - > С) ВН2 РИН, ВН2 ВПАВК МВ, ВМ1 ВВІ ВВ, 

ВИ1 0 (, ВМ2 ВРОВТН ІС, РЦТВН1 В, ЕВО-СООЕ 

СООЕ С! < С,А-> ) 14 1.НВИ12 ВАІ. , ВЫ2 ВИАВК ВВ, 

ВВІ 0 (, ЯМ2 ВРОВТН 8ТС, 2Р0Р В, ЕВО-СООЕ 
I , < Н-> > НЕВЕ 2 АШТ 1 | 

I С, ( С-> ) НЕВЕ 1 АІЛОТ С! | 

СООЕ ЕХЕСИТЕ ( СРА-) ) 14 РОР, МЕХТ1 8, ЕВО-СООЕ 


Экран номер 12 

( 31.03.86 ЯОІЛ РІСК 20ИР 2ВЯ0Р 28НАР 20ѴЕВ 2В0Т I 

СООЕ вбы. ( НН, ИВ-1.Н0,+В->НВ-1.НО,ИВ) 

ВИ2 РШЛ, ВИ2 ВМ2 АВ, ЕВСОМОВ ВМ, РЫ1 ЗЕСОВО (, ВМ2 ІН, 
ВЕѲ1В, О РІВВТ (, ВИ2 ІН, О ЗЕСОВО (, ВИ2 ВТН, 

ВИ2 ВТМО ВВ, ?ВР инти, РОРРИТІ В, ЕВО-СООЕ 
СООЕ РІСК ( ИВ,...,ИО,*И->ИВ,...,ИО,ИВ) 

ВИ2 РИІЛ, ВИ2 ВИ2 АВ, ЕВСОВ08 ВМ, 

ВИ1 2 (, ЯЫ2 ВЗТАСК ИН, РИТВИ1 В, ЕВО-СООЕ 
■ 20ИР ( НО->ИО,ИО) ОѴЕВ ОѴЕВ | 

I 20В0Р ( И0-» ОВОР ОВОР | 
і 28ИАР ( N01 ,И02->И02, И01) 3 ВОН 3 ВОН | 

I 20ѴЕВ ( N01,ИО2— >И01,И02,НО 1) 3 РІСК 3 РІСК | 

I 2В0Т ( N01,И02,И03->Н02,НО!,ИО 1) 3 РОИ. 3 ВОЛ | 
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Экран ноиар 13 


( 31.03.86 АНО ОН ХОК йот О- 0< * 

СОВЕ АНО ( И1,Н2->ИЗ) 

и СНВИ12 ВАС, ВНІ КМ2 НВ, РОРРВТ1 В, ЕНО-СООЕ 

СООЕ ОК ( И1,Н2->НЗ) 

14 иНПЫ 12 ВАС, ВМ1 КН2 ОВ, РОРРУТ1 В, ЕНО-СООЕ 

СООЕ ХОВ I И1,Н2->ИЗ) 

14 ЬННМ12 ВАІ., НИ1 КН2 ХВ, РОРРІІТ1 В, ЕНО-СООЕ 

і НОТ I М1 — >Ы2 ) -1 ХОК | 

СООЕ О* ( Н->Р) ВМ1 ВМ1 5В, КН2 РЦСС, ВН2 ВН2 ПК, 

ритвні вн 2 , ки і о встк, ритвні в, ено-соое 

СООЕ 0< < Н->Р) ВН1 ВИ1 8К, КМ2 РОИ, КМ2 ВН2 ПК, 

РЦТВИ1 внн, вні о встк, риткні В, ЕНО-СООЕ 


Экран номер 14 

( 31.03.86 8>0 0АВ8 ОНЕОАТЕ 0* О- ОІК I 

сооЕ в>о ( н->о > вні рисе, ривнгви) в, ено-соое 

СООЕ ОАВ8 I 01--02114 СКН1 ВАІ, ВНІ КН, СРВ, 2РЦТВН1 6, ЕНО-СООЕ 

СООЕ ОНЕВАТЕ ( И01-Ж02) 

14 СКН1 ВАС, ВНІ ВНІ ССК, 2РЦТЯНІ В, ЕНО-СООЕ 
СООЕ 0* ( НО 1, И02-Ж03) 

14 СКИ12 ВАС , ВНІ ВИ2 АВ, 2Р0РРІШ В, ЕНО-СООЕ 

СООЕ 0- . ( И01,Н02->И03) 

14 ивиі 2 вас, вні внг ев, грорриті в, еко-соое 

соое ои< < иоі,ио2->Рі и свніг вас, о о гв, вні внг сев, 

?С ІР, О О ВСТК, ТНЕН, Я8ТАСК 6 (, О В8ТР1К СА, 

О Рит, ВНЕХТ ВЯ, ЕНО-СООЕ 


Экран номер 15 

( 31.03.86 О/НОО О/ ОНОО 00= 0= 00< 0< 02/ I 

СООЕ О/НОО ( 01,02->03,04) 14 СВИ12 ВАС, 1 ВНІ СВ, О ВМ2 СК, 
ВНІ 32 8В0А, КН1 О ОК, 10 ХВ, 1 1 СТВ, ?И ІР, ВНІ О АВ, 
КН2 О ВСТВ, ТНЕН, ВНІ ТЕНР ВТ, РІЯ8Т 4 ♦(, 4 ), ТЕНР ИѴС, 
ВНІ ВН2 СК, 2РЦТЯИ1 В, ЕНО-СООЕ 
I 0/ ( 01,02—>03) О/НОО 2 В НАР 2ОВ0Р | 

і ОНОО ( 01,02->03) О/НОО 20В0Р | 

I 00= ( НО->Р) ОЯ 0- | 

I 0= ( НО1,Н02->Р). О- 00* I 

I 00< ( 0->Р1 ЗНАР СКОР 0< | 

і 0< ( 01,02->Р) 0- 00< I 

СООЕ 02/ ( 01->02> 14 СВН1 ВАС, ВНІ 1 ЗВА, РОТЯНІ В, ЕНО-СООЕ 


Экран камер 16 

( 09.09.86 ин/ноо СК Н/НОО ОНАХ ВНІИ ) 

соое ин« ( иі,иг->ио> и енвніг вас, вні вназк нк, 

ВН2 ВНА8К НВ, ВНІ ВНІ НВ, КН1 ВН2 СВ, 2РЫТКН1 В, ЕНО-СООЕ 
сооЕ цн/ноо ( ио,иі->и 2 ,из> і рор, і вназк ня, и свиі вас, 

В8ТАСК ВТНО БК, ВН2 ВНІ СВ, ВНІ ВНІ ЗВ, ВНІ 1 ОВ, 

ВНІ РІВ8Т 4 *(, 8ТН, ВНІ ВН2 СВ, Р0РРЦТ1 В, ЕНО-СООЕ 

сооЕ и< < иі,и 2 ->п вні вні зв, внг рисе, внг вназк нв, 

О 5ЕС0Ы0 СН, О ВНАЗК НВ, О КН2 св, рорриті вне, 

ВНІ О ВСТК, ( РЕЗУЛЬТАТ “ИСТИНА*) РОРРИТІ В, ЕНО-СООЕ 
і н/ноо ( иоі,иг->из,ио4) >в о ві ин/ноо в> знар ж ин/ноо к> і 

I ОНАХ ( 01,02->031 20ѴЕВ 20ѴЕВ 0< ІР 23НАР ТНЕН 20В0Р | 

I ОПІН ( 01,02—>03) 20ѴЕВ 20ѴЕК 0< НОТ ІР 28НАР ТНЕН 20К0Р | 
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Экран номер 17 


( 31.03.86 НЕВАТЕ АВБ ♦ - 1+ I- 2+ 2- !♦! ) 

С00Е НЕВАТЕ ( Н 1->Н2> ЯИ1 РІІИ , НМЛ НМ 1 ЮН, РЧТРМ1 В, ЕНО-СОВЕ 
і АВ8 ( N1 — >+N2) 3)0 ОАВЗ ОРОР | 

СОВЕ ♦ 14 1.НРМ12 ВАІ-, НМI НН2 АР, РОРРОТ1 В, ЕНО-СОВЕ 

і - ( М1 ,М2-)ИЗ) НЕВАТЕ ♦ | 

і 1+ ( М1->И2) 1 ♦ ( 

і I- ( М1 — >М2І -1 ♦ | 

I 2+ < М1 — > М 2) 2 ♦ » 

1 2- < М1—>М2 > 2 - | 

СООЕ «1 ( Н,А->> X 1НРК12 ВАІ, НИ2 РНАЗК N8, НМ 1 О (, 

РМ2 РРОРТН АН, НМ1 0 (, РН2 РРОРТН ЗТН, 2Р0Р В, ЕНВ-СООЕ 
I 1+! ( А-» 1 БИАР ♦! | 


Экран номер 19 


( 03.10.86 Пі И/ • /НОВ / НОВ «/НОВ */) 

СООЕ И« ( N1,N2->В) КЫ1 ВЕСОМО ІН, НМ 1 РІРВТ НН, 2РІІТ КМ 1 В, 
СООЕ Н/ ( В, N 1 — >Н2, N3 > 1 РОР, 14 І.ЯМ1 ВАС, Р5ТАСК НТИО ЗР, 
НМ 1 32 ЗАВА, О КМ 1 ІР, КМ1 1 ОН, 0 1 ХЯ, О О СТР, 

?Н ІР, РМІ 1 АР, РМ2 О ВСТЯ, ТНЕН, НМ і РІН8Т 4 ♦ (, ЗТН, 
РМ1 ЯМ2 Ій, I ЧАСТНОЕ) Р0РР0Т1 В, ЕМО-СООЕ 
I * ( N1 , N2- >N3) Н* ОРОР | 

I /НОВ ( N1,М2->МЗ,М4> >Р 8>0 Я> И/ | 

I / 1 N1,Н2->НЗ) /НОВ 8НАР ОРОР | 

I КОВ I М1,Н2->МЗ) /НОВ ОРОР | 

I «/НОВ ( N1,М2,МЗ->М4,N3) >й Н* Р> Н/ | 

I •/ ( N1,N2,М3— >N4) «/НОВ БИАР ВРОР | 


Экран номер И 


< 31.03.86 СРАВНЕНИЯ И РАЗРЕІЕНИЯ В ВИТОН КОДЕІ 


і 0<> ( М->Р> О- ИОТ | 


1 ■ 1 

М1 

, М2— 

>Р) 

- 0- | 

і О ( 

N1 

§ М2— 

>Р) 

- 0<> 

1 < ( 

N1 


>РІ 

- 0< 

1 > МАРК 

1 

->А 

) НЕРЕ 

о 1 і 

і >РЕ50І.ѴЕ 

( 

«->) 

НЕРЕ ЗИАР ! 

і (ПАРК 

( 

— > А1 

НЕРЕ 

1 

і (РЕ50ЦѴЕ 

( 

А->) 

• 1 



( 31.03.36 

8РВ 

ЗР! РРВ 

РР! 

2/ 2* 2» 

2! 

Экран номер 

ВЕРТН ) 

СООЕ ЗР» ( 

->А) 

РМІ НЗТАСК 

ІЯ, 

РМІ РРОРТН 

ВР, 

РЦЗНРМІ в 


СООЕ 8Р! I А-> ) РЗТАСК РИН, РЗТАСК РНАЗК МН, 

Р8ТАСК РРОРТН АН, ЯНЕХТ ВР, ЕМВ-СООЕ 
СООЕ РРВ < — >АI НМ 1 НРЕТ ЦТ, НМ 1 РРОРТН 8Н, РІІ8ННМ 1 В, ЕМО-СООЕ 
СООЕ РР! I А->> ЯЯЕТ РОР, ЙРЕТ РНАЗК N8, 

РРЕТ РРОРТН АР, ЯМЕХГ ВР, ЕИО-СОВЕ 
СООЕ 2/ ( М1 ->М2 ) РМІ РШ.І., НН1 1 ЗРА, РІІТРМ1 В, ЕНО-СОВЕ 
і 2» ( М1 — >М2 ) ОЦР * ) 

I 21 ( А->НВ) ВОР 2+ I 8МАР • | 

■ 2! ( МВ,А->) ВОР >Р ! Р> 2+ ! | 

і ВЕРТН ( ->+Н> ЗРІ ВО I 5ИАР - 2/ | 
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Экран номер 21 


( 31.03.86 СНОѴЕ СН0ѴЕ> ) 

СОВЕ СНОѴЕ ( А1,А2,и->) 14 СНЙИ12 ВАС, РИ2 ЙНДВК N11, 2 «Р В2, 
NN1 ЙИАБК НК, ЙИ1 ЙРОЙТН АН, 1 РІЙЗТ 4 +(, иН, 1 ЙНАЗК N8, 
1 ЙРОЙТН АЙ, 0 236 ІА, 1 »Р В, ВЕБ1Н, 

О (, 256 ЙМ1 ), 0 (, 1 НѴС, ЙН1 О АЙ, 10 АЙ, 

1 «Н ЙМ2 О 8Й, ?Н ШШС, ЙИ2 О ВСТЙ, ЙИ2 О Ай, 

?ИИ ІР, ЙН2 3 *Р ЕХ, ТНЕН, 

2 «Н Й8ТАСК 6 (, О Й8ТАСК ІА, ЙИЕХТ Ей, 

3 *Н 0 (, 1 ПН1 ), 0 (, 1 НѴС, ЕНО-СОВЕ 

СОВЕ СНОѴЕ > ( А1,А2,и->) 14 СНЙИ12 ВАС, NN2 ЙНА8К НЯ, 1 «Р 82, 

ЙН1 ЙНАЗК N8, ЙИ1 ЙРОЙТН Ай, ЙИ1 О ВСТЙ, 

1 РІЯ8Т 4 +(, СН, 1 ЙНАЗК N8, 1 ЙРОЙТН Ай, 1 О ВСТЙ, 

ВО, 001,1 ЙН2 ІС, 001, ЙИ1 ЙИ2 8ТС, ЙИ2 СООРВСТ, 

1 -Н ЙЗТАСК 6 (, О Я8ТАСК ІА, ЙИЕХТ Вй, ЕИО-СООЕ 


Экран номер 22 


( 31.03.86 Р!И ЕЙА8Е ВСАИК СОНРаЕ 1 1 НІН ПАХ НЕХ ОЕСІНАСІ 
■ Ріа < а,о,с->) виар ?вир ір >й оѵей с! 

В11Р а й> 1- СНОѴЕ ЕХ ІТ ТНЕИ 2ВЙ0Р I 
і ЕЯА8Е ( А,и-> ) О Ріа I 

I ВСАЖС ( А,и-> ) ВС РІСС I 

і СОНРІСЕ ( -> ) й> вир 2* >Й I , I 

і 1 1 -> > 8ТАТЕ О! I ІННЕВІАТЕ 

і 1 ( -> 1 -1 8ТАТЕ ! I 

СОВЕ НІИ ( N1,N2— >N3 1 14 СНАМ12 ВАС, ЙИ1 ЙН2 Сй, 

РОР ВИН, ЯМ 1 ЙИ2 Сй, РОРРиТІ 8, емо-соое 

СООЕ НАХ ( ИІ,И2->ИЗ > 14 СНЙИ12 ВАС, ЙМ1 ЙН2 Сй, 

РОР ВИС, ЙМ1 ЙН2 СЙ, Р0РРЦТ1 В, ЕМО-СООЕ 

і НЕХ ( ->) 16 ВАЗЕ ! I 

і ВЕСІНАС ( ->) 10 ВАЗЕ ( | 


Экран номер 23 

( 31.03.86 СІТ 2СІТ СІТЕЙАС 2СІТЕЙАС 8РАСЕ ЗРАСЕЗ ) 

СООЕ СІТ ( ->М 1 ЙИ1 0 (, 81 ЙРОЙТН СН, 

ЙІ ЙТНО Ай, РСІ8НЙМ 1 В, ЕИО-СООЕ 
СОВЕ 2СІТ ( ->МВ 1 ЙН1 4 СА, Й8ТАСК ЙМ1 Вй, 

ЙИ2 О I, ЙІ ЙРОЙТН СА, РІЙЗТ (, 4 ), 0 (, ЙМ2 НѴС, 

ЙІ ЙИ1 Ай, ВМЕХТ Вй, ЕИО-СООЕ 
I СІТЕЙАС < И->> 8ТАТЕ В ІР СОНРІСЕ СІТ , ТНЕИ | ІННЕВІАТЕ 
і 2СІТЕЙАС ( НВ->) ВТАТЕ В ІР СОНРІСЕ 2СІТ , , ТНЕИ | ІННЕВІАТЕ 
і 8РАСЕ ( ->) ВС ЕНІТ | 

і ЗРАСЕЗ ( *М->> О ОѴЕЙ < ІР О ВО 8РАСЕ СООР ЕХ1Т ТНЕИ ОЙОР | 


Экран номер 24 

( 09.09.86 ЦИКЛ» СО СЧЕТЧИКОНі (ВО/ I I' 1 СЕАѴЕ) 

СООЕ (00) ( ІИ ,112-> ) 14 СНЙМ12 ВАС, 

1 «Н 1 0 (, ЙІ ЙРОЙТН СН, 1 ЙРЦ8Н, ЙІ ЙТНО Ай, 

ЙН1 ЙРЦВН, ИМ2 ЙРЦЗН, 2Р0Р В, ЕНО-СОВЕ 
СОВЕ I ( ->Ц ТЕКШЕЕ ЗНАЧЕНИЕ СЧЕТЧИКА ЦИКЛА) 

ЙН1 ЙРЦСС, РЦЗНЙН1 В, ЕНО-СОВЕ 
СООЕ Г ( ->Ц ВЕРХНЯЯ ГРАНИЦА ЦИКЛА) 

ЯМ1 ЙЗЕСОИО СН, РЦ8НЙИ1 В, ЕИО-СООЕ 
СООЕ Л ( ->Ц ТЕКШЕЕ ЗНАЧЕНИЕ СЧЕТЧИКА 2-ГО ЦИКЛА) 

ЙН1 ЙРІЙЗТ 6 ♦(, СН, РЦ8НЙМ1 В, ЕИВ-СООЕ 
СООЕ СЕАѴЕ ( ->) ЙІ КРЩВТ 4 +(, СН, ЙІ ЙНАБК N8, 

ЙЙЕТ 6 (, О ЙЙЕТ СА, ННЕХТ Вй, ЕНО-СОВЕ 
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Экран номер 23 


( 31.03.86 +8ЦР ВиРРЕВ ВЮСК ЕИРТУ-В0РРЕВ5 иРВАТЕ 1 
I +В1)Р I А1->А2,Р ПЕРЕЙТИ К СВЕДУЩЕМУ БУФЕРУ В ПУЛЕ) 

в/вцр * + ♦ вир пип • ір овор ріизт тнен оцр рвеѵ і - і 
і виРРЕВ ( +н->А) 0РР8ЕТ і ♦ изЕ і вир >в 

( ИВЕИ СВОБОДНЫЙ БУФЕР> ВЕ61N *ВОР ЦИТИ иЗЕ ! 

В* I 0< ІР ( УСТАНОВЛЕН ПРИЗНАК "ЫРОАТЕ”) 

В< 2+ ВІ В 32767 АНО И8СК ТНЕИ В» ! ВІ РВЕѴ ! В> 2+ | 
і ВЮСК ( + N—>А) 0РР5ЕТ I ♦ >В РВЕѴ • ОЦР I ВІ - ОЦР + ІР 
веб і н + ви р о* ір опор в« оррзет в - виРРЕВ вир вв кви 
2 - тнен вир в ві - вир + о« 
инти ВИР РВЕѴ ! ТНЕН ВВВОР 2+ I 
і ЕМРТУ-ВиРРЕВВ_ ( -> ) РІВ8Т ІШТ ОѴЕВ - ЕВАЗЕ | 

I ЦРВАТЕ ( -> ) РВЕѴ ( і 32768 ОВ РВЕѴ I ! | 


Экран нонір 26 

( 31.03.86 ЗАѴЕ-ВиРРЕВЗ РЮ5Н ) 

I ЗАѴЕ-ВиРРЕВЗ ( ->) 

ИМІТ РІВЗТ ВО I « 32768 АНО 

ІР I • 32767 АНО СУР I ! 

I 2+ 5МАР ІіІВІК 

ТНЕН 

в/вир 4 ♦ +соор 

I 

і РЮ8Н ( ->) ЗАѴЕ-ВиРРЕВЗ ЕНРТУ-ВЦРРЕВЗ | 


Экран номер 27 


( 31.03.86 ЕНСЮЗЕ НОВО ) 

СОВЕ ЕНСЮЗЕ ( А, С-> А, N1, N2, N3) 14 СНВН12 ВАС, ВИ 1 ВНАЗК НВ, 
ВН1 ВРОВТН АВ, 14 14 ЗВ, О О ЗВ, 

ВЕБIN, О 0 (, 14 ВН1 ІС, О О ІТВ, 2 -Р ВТ, 

14 1 (, 0 14 СА, О ВН2 СВ, 7ИЕ ЦИТІС, 14 О ВСТВ, 

2 «Н 14 рит, 

ВЕв ІИ, 1 14 СВ, 001,1 ВИ1 ІС, О О ІТВ, 

2 =Р ВІ, 14 1 (, 0 14 ІА, О ВН2 СВ, 7Е иНТІІ, 

2 =н і ризн, вні 14 ш, ризнвні в, ено-соое 

і ново < с->т ) век « ір век « вюск есзе тів тнен 

>ІН В + ЗНАР ЕНСЮЗЕ >1Н +! 

НЕВЕ >В ОѴЕВ - >В + АИЗНН НЕВЕ !♦ В« СМОѴЕ 

НЕВЕ В> 1* АССОТ АИЗНН НЕВЕ ОѴЕВ - 2- ОѴЕВ С! В> ВР! | 


Экран номер 28 

( 31.03.86 пт* соинт ,■ • ■. (.■/ .■ с < .< оиіт авовт і 
СОВЕ НТ* ( ->Т ) 14 іривн ВАС, ВНЕХТ ВВ, ЕНВ-СОВЕ 

: соинт ( Т->А,И) ВЦР 1+ ЗМАР СІ 20ЦР ♦ СІ ІР 1+ ТНЕН I 
! ,*(->> С* * НОВО СІ 2+ АЮОТ АИЗНН | 
і * < ->Т) 7С0ИР СОИРІСЕ ПТ* ,’ | ІИНЕВІАТЕ 

і ". ( Т-> ) СОЫНТ ТУРЕ ) 

СОВЕ (.'I I ->) 14 ІРивН ВАС, 14 СОТО ВАС, I \ С 

I .* < -> ) 7С0ИР С0І1РІСЕ (.“) ,* ( ІИНЕВІАТЕ 

: С* ( ->С) ВС НОВО 1+ С« ССОИРІСЕІ СІТЕВАС | ІИНЕВІАТЕ 

і ( ( ->) С* ) НОВО ОРОР | ІИНЕВІАТЕ 

і.((->) с* ) ново соинт туре і іииевіате 

і виіт ( ->) ССОИРІСЕІ С 30 I ВР! ВО I ВР! «ОРТ-СИСТЕНА I 
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Экран номер 29 


( 31.03.86 ПРОВЕРКИ И СИГНАЛИЗАЦИИ ОБ ОІИБКАХ ) 
і 7АБ0ВТ ( Р,Т->) БИАР ІР СОІЖТ СР ТУРЕ АБОРТ ТНЕН ОРОР | 

СОВЕ (А'І ( Р->) 14 ІРІІ8Н БАЦ, 14 ѲОТО ВАІ., 1 7АВ0РТ С ЕНВ-СООЕ 
I АБОРТ* ( Р->) С0ИР11Е <А") | ІННЕВІАТЕ 

і АБОРТ в < ->> -1 АБОРТ* НЕПРАВИЛЬНОЕ ЗНАЧЕНИЕ В СТЕКЕ* | 

I !СЗР ( ->) ВР* С5Р ! | 

і 7СБР ( ->) 6Р« С5Р • - АБОРТ* СБИЛСЯ УКАЗАТЕЛЬ СТЕКА* | 
і 7РАІЯВ ( N1,N2-) ) - АБОРТ* НЕПАРНЫЕ СКОБКИ* | 

СОВЕ ?♦ ( Н->Н ) РІР8Т 128 ТН, КНЕХТ В2Р, ЕВС0НВ8 В, ЕИВ-СОВЕ 
I 7С0НР ( ->) БТАТЕ I МОТ АБОРТ" ТРЕБУЕТСЯ РЕІИМ КОМПИЛЯЦИИ* | 
і ВАВИОРВ ( Т->) СР *. .* ?* АБОРТ | 


Экран номер 30 

( 31.03.86 >ВООУ ВОВѴ> ЯІМК ИНК) ЮИАИЕ М>ИНК >МАНЕ НАНЕ) ) 

I )ВОВУ ( СРА->РРА) 2+ | 

I ВОВУ) ( РРА-)СРА) 2- | 

I УНИК ( СРА-НРА) 2- | 
і ИНК) ( ЬРА-АСРА) 2+ I 

СОВЕ ОИАИЕ ( 1РА->НГА> КМ2 РШЛ, РИ2 АНАЗК ИР, РИ1 РИ2 Ш, 
14 ІІ.ЕМВ І.А, 1 1 БР, ВО, РМ1 РТИО ВР, 1 0 (, РИ1 РРОРТН ІС, 

1 ЦЕМа1П5К N. О 2 (, 1 РИ1 БА, О РИ2 СР, РЦТРИ1 БЕ, 

14 ЮОРВСТ, ритрм 1 8, ЕНВ-СОВЕ 
I НМ.ІНК ( ИРА-МРА) вир СІ 31 АИО ♦ 27 I 
I >НАНЕ ( СРА-НРА) >иИК ОМАНЕ | 

( НАНЕ) ( ЫРА— >СРА) НН1НК ПИК) | 


Экран номер 31 


( 31.03.86 1.АТЕ5Т ВЕРІНІТІ0Н5 БМиВВЕ иИЗНиВВЕ ІННЕВІАТЕ 10.) 
і І.АТЕБТ ( ->НРА) сиККЕМТ ( I ; ( ((СОВЕ/ КЕСЫР8Е) 

I ВЕРINIТ10М8 ( ->) СОЫТЕХТ • СУЯВЕНТ ! | 


гмиввЕ ( -)) 
инзниовЕ < -» 

ІННЕВІАТЕ ( ->) 
ІВ. ( ИРА-) ) 


I (|СОВЕ) ( •> ) 
I РЕСЦРЗЕ ( -)) 


І.АТЕ5Т СІ С ЬЗРЦАВ 1 ІІТБВАІ ОР І.АТЕ5Т С! | 
1АТЕ6Т СІ С 233 15Р1АБ - 1 І.ІТЕРАІ 
АМВ І.АТЕ5Т С! | 

ЦАТЕЗТ СІ 1 6ІРІ.АВ 1 ІІТЕЯАІ. ОР 1.АТЕ5Т С! | 

вир и БИАР сі с і>іЕна і итеваі. ано 

2ВЕІР 7 СІ ІР 17 ТНЕІ4 ТУРЕ ЗРАСЕ | 

Р) ЬАТЕБТ МАНЕ) ! | 

1.АТЕ8Т МАМЕ) , | ІННЕВІАТЕ 


Экран номер 32 

( 31.03.86 СОНЗТАМТ ѴАКІАВЬЕ 2С0№ТАЫТ 2ѴАВІАВІ.Е I | 1 
I 7ЮАВ1НВ ( ->) В1.К I 0* АБОРТ* НЕТ ОБРАБОТКИ ЭКРАНА* | 

I 7БАР ( N->1 НЕВЕ 7 8РІ ЗНАР Ц< АБОРТ* ИСЧЕРПАНИЕ ПАНЯТИ* | 
і 73ТАСК ( ->) 80 I БРІ Ц< АБОРТ” ИСЧЕРПАНИЕ СТЕКА* 10 7БАР | 

I СОМЗТАМТ < И-> ) СВЕАТЕ , | СОВЕ 

ВЫ 1 О (, 14 РРОРТН 1Н, РОЗНВМІ В, ЕНВ-СОВЕ 
I ѴАВІАВІЕ ( -) ) СРЕАТЕ 0 , ( 

I 2ѴАРІАВІЕ ( -> ) СРЕАТЕ 0 , 0 , | 

і 2С0М5ТАНТ < МВ-) ) СВЕАТЕ , , В0Е5) 21 | 

II ( -) > !СЗР СРЕАТЕ I 5НІІ0БЕ |СОВЕ 

ві рризн, рі и ик, вмехт вв, еио-сове 

I I ( -) ) ?СБР СОНРИЕ ЕХІТ ЦНБНиВЗЕ ССОМРИЕ] С I ІННЕВІАТЕ 
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Экран номер 33 


( 09.09.86 РОВТН РОВТН» РІ» ѴОС-ПИК ѴОСАВШ.АЯѴ Ѵ0СА8Ш.АВѴ») 
ѴОС РОВТН ІОНОВО Н, < РОВТН-83) 

А: РОВТН» 1А5ТНОНО ( ВХОД В СПИСОК СЛОВАРНЫХ СТАТЕЙ) 

Аі РІ.» О Н, ( ПОЛЕ СВЯЗИ ДЛЯ СПИСКОВ СТАТЕЙ) 

СВЕАТЕ ѴОС-ІІИК РІ.» ( ВХОД В СПИСОК СПИСКОВ СТАТЕЙ) 

і ѵосавш.анѵ ( -> ) сяеате с іоново і птеваі , 

ИТ I РОВТНі ] 

СОИТЕХТ I - ІР СОЫТЕХТ В 2- Е18Е О ТНЕИ , 

НЕВЕ ѴОС-НИК I , ѴОС-НИК ! 00ЕЗ> 

С ТНЕВЕ 4 - і А1 ѴОСАВШ.АВѴ» 1 
2+ СОИТЕХТ ! | 

і РОЯТН-ВЗ I ->) РОВТН 0ЕРІИІТІ0И5 ОЕСІНАІ | 


Экран иом*р 34 

( 31.03.86 (РІИО/ ) 

СООЕ (РІИО) ( -1,АИ,...,Й1,Т->СРА,С,ТР/РР ) ВИ2 РОР, 

ВН2 ВИАВК ИВ, ВН2 ВРОВТН АВ, ( ОБРАЗЕЦ) О О ЗВ, 

О 0 (, О ВИ2 ІС, О ЦЕНЗ1НВК И, < ДЛИНА) 1 1 ЗВ, 1 О ВСТВ, 
ВЕБІИ, ВИ1 РЦЦ, ( ВХОД В ОЧЕРЕДНОЙ СПИСОК СЛОВІ 2 «Р В, 

ВЕЗІИ, ВН1 ВРОВТН АВ, 14 0 (, О ВИ1 ІС, 14 І-ЕМвНАЗК И, 

14 О СВ, ?Е ІР, 14 4 »Р ЕХ, 3 *Р ВЕ, ТНЕИ, 

14 1.ЕИВ1И5К И, ВИ1 2 (, 14 ВИ1 ІН, 

2 «Н ВИ1 ВИАБК ИВ, ?І ЦНТІІ, 

В8ТАСК ВТИО АВ, 1 РІНВТ СН, ?Е ЦИТІІ., РЦТВИ1 В, 

ВЕВІИ, ВЗТАСК ВТИО АВ, 3 »Н 1 РІЯВТ СН, ?Е ЦИТИ, 

О 0 (, О ВН1 ІС, ВИ1 ВРОВТН ЗВ, ВИ1 4 (, 14 АН1 ІА, 

ВИ1 Рит , О РЦ8Н, ВИ1 1 ІВ, РЦЗНВНІ в, 

4 »Н 1 (, 1 ВИ1 ), 1 (, ВИ2 СІС, ЕИО-СООЕ 


Экран номер 35 

( 31.03.86 РІИО -РІИО > 

I РІИО ( Т— >А,N) 

ОЦР >В -1 НТ I РОВТН» 1 • 
сиввЕНТ і » 2оир • ір овор тнен 
СОИТЕХТ С I 20ЦР * ІР ОВОР ТНЕИ 
В> (РІИО) ОЦР ІР 

ОВОР ВОТ ОВОР [ іі 1РЦАЗ I НТЕЯАІ. АИО ІР 1 Е1.8Е -1 ТНЕИ 
ТНЕИ 
I 

I -РІИО I ->А,И> ВЦ НОВО РІИО I 


Экран иои»р ЗА 

( 09.09.86 СВЕАТЕ 00ЕЗ> I 

I СВЕАТЕ ( ->) 100 ?8АР 

АНВИН -РІИО БИАР ОВОР ІР 
НЕВЕ ІО. .* ЫЕ ЕСТЬ " ТНЕИ 

НЕВЕ ОЦР С( М10ТН АНО 2-» А11.0Т АНВИН 
НЕВЕ ОѴЕВ - 2- ОѴЕЯ С! ЬАТЕЗТ , СЦВВЕИТ • ! 

НТ С СВЕАТЕ» ] , | 

і ООЕЗ> ( -> ) СОИРІІЕ (СООЕ) 2ИТ 
[ 00ЕЗ» В, I , , і ІННЕОІАТЕ 
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Экран ИОИВр 37 


( Л. 03.86 РАО НОЮ АІРНА <• •> I 15 ВІВН ) 

і РАО ( ->А> НЕВЕ 100 ♦ | 

і НОЮ ( С-> I -1 НЮ ♦ ! НЮ I С! | 

С00Е АІРНА ( Н->С1 КМ2 Р1К8Т ІН, 

КИ1 КМ 1 ВК, КМ 1 1 -Р (, КМ2 ІС, Р11ТКМ1 в, 

1 >Н С,' 01234367В9АВСОЕРВНПКІ.ИНОРОКвТиѴИШ' 
ЕНО-СООЕ 

і <• ( -> ) РАО НЮ ! I 

I •> ( 0->А,♦Н) 20К0Р НЕО • РАО ОѴЕК - | 

і I ( 01 — >02> ВА8Е I Н/НОО НОТ АІ.РНА НОЮ | 

■ із < о->о,о) вЕо і н і гоир он о> инти і 

I ЗІВН ( Н-» 0< ІР С - - НОЮ ТНЕИ I 


Экран ИОИВр 31 

< зі. оз. ев о.н о. .я . н. о. и. я ? > 

I О.Н ( 0 , *М-> ) ?+ Ж ООР >Н О А В 5 

<• 18 Я> 8ЮН •> Н> ОѴЕН - 6РАСЕЗ ТУРЕ | 

I 0. ( 0-> ) о О.Н 8РАСЕ | 

I .Н ( N1,+N2->) >Н 8>0 Н> О.Н | 

I . ( И-> ) 8>0 0. | 

і Н. ( И->> ІА8Е • 8МАР О НЕХ <••••••> ТУРЕ 8РАСЕ 

ВА8Е ! | 

• и. ( ц-» о о. і 
■ и. я ( о,+н->> >я о н> о.н і 

і ? < А—>) • . I 


Экран И 

( 31.03.66 0І6ІТ СОНѴЕРТ НиМВЕН I 

і 01ВІТ ( С,Н1->Н2,ТР/РРІ о кот нот о 

00 1 АІРНА ОѴЕН • ІР 20Н0Р I -1 О ІЕАѴЕ ТНЕН ЮОР ОПОР | 

I СОНѴЕНТ ( И01,А1->И02,А2> 

веб ін и оир ж с* вазе в оюіт ынііе 

ЗНАР ВАЗЕ I ЦН« 0Н0Р НОТ ВАЗЕ Я ЦК* 0+ 

ОРІ. В 1+ ІР ОРІ. !♦! ТНЕН Я> ЯЕРЕАТ Н> | 

■ нинвЕЯ < т->но і 

о о нот оир ж соинт оѵек ♦ оѵек сі с - • 
оир Ж ЗНАР Ж ІР Е18Е 1- ТНЕН -1 

вевін орі 1 сонѵеят оир ні < Инне оир св 

С* . О ІР КОКОР КОКОР К> ВАОНОНО ТНЕН о 
НЕРЕАТ ОПОР КОКОР К> ІР ОНЕВАТЕ ТНЕИ КОКОР | 


Экран НОН«р 40 

( 31.03.66 ЕХРЕСТ ОЦЕКУ ІНТЕКРКЕТ ВОРТ-СИСТЕИА X I 
і ЕХРЕСТ ( А,*И-> ) Ш Ж (ЕХРЕСТ) ОЦР ЗРАН ! 

ТУРЕ К> ЗРАН Я - ІР 8РАСЕ ТНЕН | 
і ОЦЕКУ ( ->) ТІВ ВО ЕХРЕСТ >ІН О! ВІК О! ВРАН В ВТІВ ! | 

I ІНТЕКРКЕТ ( ->І ВЕВІН -РІНО 7011Р ІР 

1* ІР ЕХЕСиТЕ Е18Е ВТАТЕ Я ІР , Е1.3Е ЕХЕСЦТЕ ТНЕН ТНЕН 
ЕЮЕ ниЛВЕК ОРІ. В 1+ ІР ССОНРИЕ] 2ИТЕКА1. 

Е1.8Е ОЯОР ССОНРИЕ) ІІТЕКАІ. ТНЕН ТНЕН 73ТАСК АВАІН | 

I ТОРТ-СИСТЕМА ( ->) ВЕВІН ВЦЕНУ ІНТЕКРКЕТ АВАІН | 

СОВЕ X ( ->) ЗАЗИТЬ-Х ( НУЛЕВОЙ КОЙ ВМЕСТО БУКВЫ *Х’> 

ЕХІТІ В, ЕНО-СООЕ 1ННЕ0ІАТЕ 
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Экран номер 41 


( 31.03.66 -ТЯАаіНВ ' ['1 [С0ИРКЕ1 ЮАО ТНА11 18 — > ) 

СОВЕ -ТЙАШНВ ( А,N1- >й,N2) 14 ЕНЯИ12 ВАС, НИ1 ННА5К ИЯ, 

НМ1 ЯРОЯТН АН, О ЯИ1 ЬВ, ЯИ1 ЯИ2 АЯ, ВЕВІИ, ЯН1 О СЯ, 

1 «Р ВМН, ЯИ1 О ВСТЯ, 0 (, КИ1 64 СИ, ?МЕ №11, О О ВСТЯ, 

1 «Н КМ 1 О ЗА, РЦТЯИ1 В, ено-соое 
I • ( ->СРА> -РІНО О* ІР ВАЗИОЯО ТНЕИ | 

I [ ] ( -> ) 7С0ИР ' ССОМРІІЕ] ИТЕЯАЕ | ІНМЕОІАТЕ 

I ССОНРНЕ ] < ->) -РІИВ ІР , ЕШ ТНЕИ ВАЗИОЯО | ІННЕВІАТЕ 
I ЮАО ( Н-> ИНТЕРПРЕТИРОВАТЬ БЛОК С НОИЕРОН N1 

НИ • >Я ВЕК I >Я ВЕК ! >ІИ О! ІИТЕНРЯЕТ В> ВЕК ! Я> НИ ! | 
I ТНЯО ( N1,N2— > ИНТЕРПРЕТИРОВАТЬ БЛОКИ ОТ N1 00 N2) 

1 + 8ИАР 30 I Е О А О Е 00 Р ; 
і |3 ( •>) 7Е0А0ІИЗ ЯОЯОР | ІНМЕОІАТЕ 

I —> ( ->) 7Е0АВІНВ >ІИ О! ВЕК 1+! | ІНМЕОІАТЕ 


Экран номер 42 

( 09.09.66 ОЦМР 8ИАРЗТК 3. Я. ) 

і виир ( А,и-> распечатать и байтов) вир ір 

ВАЗЕ • >В НЕХ 0ѴЕЯ ♦ БИАР ВО СЯ I <1 С* » НОЕВ 

О 15 ВО вир I ♦ СІ НОЕВ -1 +ЕООР С* * НОЕВ 
О 15 00 ВЕ НОЕВ вир I + СІ О • • 2ВЯ0Р -1 +ЕООР ВЬ НОЕВ 
ВЕ НОЕВ О I • • » «> ТУРЕ 16 +ЕООР Я> ВАВЕ 1 ЕЕЗЕ 20Я0Р ТНЕИ | 
і ЗИАРБТК ЯВЯОР СЯ ". ." , ВСЕГО ЗНАЧЕНИИ ■ 

20ир 6МАР - 2/ вир . О БИАР < ір .■ (ВЕРШИНА СПРАВА)" СЯ 
2- ВО I I . -2 +ЕООР ЕЕБЕ 20Я0Р ТНЕИ | 

! 8. ( ->) ЗРІ 30 I * СТЕК ВАННЫХ" ЗИАРБТК | 

I Я. ( ->> ЯРІ 2+ ЯО I " СТЕК ВОЗВРАТОВ" 8ИАР5ТК | 


Экран номер 43 

( 31.03.66 .ѴОС (ѴОС/ ѴОСБ ) 

I .ѴОС ( РРА+2-) ) 2- ВОВУ) > И А М Е ІВ. | 

і (ѴОС) ( РРА1+2-)РРА2,М 6 О 

ВЕБІИ ОѴЕЯ вир ІР • I ІсВИОАВ I ИТЕЙАЕ О ТНЕИ 
ИНІЕЕ 1 + ( СЧЕТЧИК СЛОВ) БИАР И)ЕІИК « БИАР ЯЕРЕАТ | 
і ѴОСБ ( -> ) -1 [’З РОЯТН >ВООУ 2+ 

сияяЕит і .* список' сцккенті ■ вир .ѵос оѵея і оѵея і « 

ІР ВЯОР ТНЕИ СОИТЕХТ • ." СПИСОК СОИТЕХТі " ВЦР .ѴОС 
ОѴЕЯ 6 ОѴЕЯ • = ІР ВЯОР ТНЕИ 
СЯ СТАНДАРТНЫЙ ПОРЯДОК ПОИСКА) ’ 

ВЕБІИ 2- ВЕБІИ 2* ВОР .ѴОС (ѴОС) ВЯОР ВБР 0= ЦИТП 

вяор вир -і = иита вяор 

СЯ ." НАЛИЧНЫЕ СПИСКИ СЛОВ: " ѴОС-ЕІИК I 

вебін вир 2- .ѵос і оир о* инта вяор < 


Экран номер 44 


( 31.03.66 ИОЯВЗ ) 

I И0ЯВ8 ( -> ) 

.* СПИСОК * СОИТЕХТ I вир .ѴОС ОЫР (ѴОС) 

." ВСЕГО СЛОВ - " . СЛЕВЗМИИ СПИСОК - • 

7ВиР ІР 2+ .ѴОС ТНЕИ 

СЯ I ВЕЗІН вир ВЫР ІР • I 6ВИ0К0 3 ЕI ТЕ КАЦ О ТНЕИ 
ИНІЕЕ оир СІ I ЬЗРЕАБ 3 ИТЕКАЕ АИО О* 

ІР оир ІВ. БРАСЕ ТНЕИ 
Н>С1НК I ЯЕРЕАТ 0Я0Р I 
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Экран номер 43 

'< 31.03.86 (РОРѲЕТ/ Р0В8ЕТ ВЕМЕНВЕВ РСВВЕТО ) 

I (Р0В6ЕТ) ( й-> ИСКЛНЧИТЬ ВСЕ СЛОВА ВЫШЕ АДРЕСА А) 
оир РЕЙСЕ • и< АБОРТ" ЗАВИТА ПО РЕЙСЕ" 

ж ѵос-имк « 

ВЕ61N Р« ОѴЕР и< ИННЕ 
РОРТН ОЕРІИІТІОНВ 

і оир ѵос-имк \ 

РЕРЕАТ < ДОШЛИ ДО СПИСКА, ГДЕ ЕСТЬ ЗТО СЛОВО) 

ВЕ6ІН оир 4 - 

вебіи и>инк * оир рі и< иит 
оѵер 2- ! і ?оир о» иит р> ор: і 
! Р0Р6ЕТ ( ->) • >МАМЕ (РОРБЕТ) і 

I ВЕМЕНВЕВ ( ->) СРЕАТЕ ООЕВ> (РОРБЕТ) | 


Экран номер 46 

( 31.09.86 (І8СР/ IIВТ ВСР? IМОЕX ) 

I (ІВСР) ( И->А,Т ПЕРЕВЕСТИ НОМЕР N ЭКРАНА В ТЕКСТОВОЕ ИМЯ) 
ВА8Е I >Р ОЕСІМАІ О <• «В і> Р> ВА8Е ! | 

I НВТ ( И-> РАСПЕЧАТАТЬ ЭКРАН И, ЗАПОМНИТЬ ЕГО В "ВСР") 

ОЦР ВСР ! СР .* ЭКРАН " ОЦР (»ВСР) ТУРЕ 
ВЮСК 16 0 00 ОЦР 1 64 • ♦ 

СР I 3 .В 8РАСЕ 64 ТУРЕ ШОР ОРОР | 


( 31.03. 
I ВЕВІИ 

■ интп 

I АВАІИ 
I ІР 
I Т НЕ Ы 
I ЕІЗЕ 

I ИННЕ 
I РЕРЕАТ 

I 00 

I ЮОР 
I +ЮОР 


Экран номер 47 

86 СТАНДАРТНЫЕ СТРУКТУРЫ УПРАВЛЕНИЯ ) 

7С0МР <МАЙК 1 | ІННЕОІ АТЕ 

1 7РАІРЗ СОМРПЕ 7ВВАИСН КВЕЗОЮЕ | ІНМЕОІАТЕ 

1 7РАІР8 СОМРПЕ ВРАИСН (ВЕБОІ.ѴЕ | ІНМЕОІАТЕ 

7С0МР СОМРПЕ 7ВРАИСН >МАРК 2 | ІНМЕОІАТЕ 

2 7РАІРБ ЖЕЗОЬѴЕ | ІНМЕОІАТЕ 

2 7РАІРВ СОМРПЕ ВРАНСН >ИАРК 

БИАР >РЕ801ѴЕ 2 ) ІНМЕОІАТЕ 

1 7РАІРЗ 1 [СОМРПЕ] ІР | ІНМЕОІАТЕ 

>В >В [СОМРПЕ! АВАІИ 

Р> В> (С0МРНЕ1 ТНЕИ | ІНМЕОІАТЕ 

7С0МР СОМРПЕ (00) >НАРК (МАРК 3 | ІНМЕОІАТЕ 
3 7РАІРЗ СОНРНЕ (ЮОР) (ВЕ50І.ѴЕ ЖЕЗОЬѴЕ ( ІНМЕОІАТЕ 
3 7РАІВВ СОМРПЕ (+ЮОР) <ВЕВОЮЕ ЖЕЗОЦ ѴЕ | ІНМЕОІАТЕ 


Приложение 2. 

Распространенные форт-системы 

Фиг-форт. Система разработана в 1978 — 
1980 гг. группой из 9 системных программистов в 
США — Группой по языку Форт (РОКТН Іпіегечі Сгоир), 
желавших сделать этот язык удобным средством 
программирования для персональных ЭВМ [28]. Систе¬ 
ма реализована для целого ряда ЭВМ с различной архи¬ 
тектурой. В нашей стране получила распространение на 
ЭВМ СМ-4 с операционными системами ОС РВ, РАФОС 
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и без операционной системы. Ее ядро, написанное на 
макроязыке ассемблера, занимает от 4 до 5 К байт и 
после загрузки в память ЭВМ позволяет вводить сле¬ 
дующие определения уже непосредственно на языке 
Форт. Общий объем словаря — около 8 К (220 слов). 
В реализации применен косвенный шитый код. Имеются 
загружаемый ассемблер и текстовый редактор. 

Форт-СМ. Система разработана в Ленинграде 
С. Б. Кацевым (ЛГУ) и И. А. Шендриковым (ЛИТМО) 
на основе стандарта "Форт-83". Используется с 1985 г. 
на ЭВМ СМ-3, СМ-4, ДВК, «Электроника-60», БК0010. 
Словарь включает около 350 слов, его общий объем — 
10,5 К. В зависимости от генерации может работать 
под операционными системами ОС РВ, РАФОС или без 
операционной системы с перфоленточной загрузки. 
В реализации применен косвенный ш итый код. Имеются 
связь с файловой системой соответствующей ОС, загру¬ 
жаемый структурный ассемблер с метками, строковый 
и экранный редакторы, целевая компиляция. 

Форт-Тарту. Система разработана в ВЦ Тар¬ 
туского государственного университета Р. В. Вяйнасте и 
А. Э. Юуриком для операционных систем ОС РВ (ис¬ 
пользуется с 1983 г.) и ЮНИКС (с 1985 г.). Ядро 
системы занимает 8 К байт и включает 270 слов. Си¬ 
стема является расширением стандарта «Фиг-форт». 
В реализации применен прямой шитый код. Имеется 
встроенный ассемблер, в оттранслированном виде зани¬ 
мающий 1 К байт. Встроенный текстовый редактор 
для ОС РВ имеет только строковый режим, для 
ОС ЮНИКС реализован экранный вариант. Система 
используется в учебном процессе и как инструменталь¬ 
ное средство для НИР [20]. 

Форт-К580. Система разработана в ЛГУ В. А. Ки¬ 
риллиным, А. А. Клубовичем и И. Р. Ноздруновым для 
микропроцессора К580. Используется с 1983 г. Система 
легко переносится на любое оборудование на базе К580, 
в частности она успешно перенесена на ЕС-7970, 
СМ-1800 (под управлением ОС "Си-Пи-Эм"), К1-10, 
КТС ЛИУС, КУВТ «Ямаха», КУВТ «Корвет» и большое 
число мелкосерийных микроЭВМ. Включена в комплект 
заводской поставки ЕС-7970 в составе программного 
комплекса ЯНУС. Ядро системы занимает от 8 до 
12 К байт и насчитывает около 300 слов. Система явля¬ 
ется расширением стандарта "Форт-83", включает все 
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стандартные расширения и ряд слов для взаимодей¬ 
ствия с операционной системой и аппаратурой 
устройств, а также для разработки и отладки программ. 
Имеются отдельно загружаемые пакеты для работы 
с числами в формате с плавающей точкой, для диало¬ 
гового обучения языку Форт, для целевой компиляции 
и построения конечного программного продукта, раз¬ 
мещаемого в ПЗУ и (или) ОЗУ. В реализации применен 
прямой ш итый код. Встроенный структурный ассемблер 
разрешает использование меток. Имеется два текстовых 
редактора — построчный и поэкранный. 

Форт-ЕС. Система разработана в Ленинградском 
институте информатики и автоматизации АН СССР 
(ЛИИАН) С. И. Барановым для ЕС ЭВМ [2] под 
управлением ОС ЕС и СВМ ЕС. Ядро системы занимает 
13 К байт и насчитывает 350 слов. Система является 
расширением стандарта «Форт-83», включает все 
стандартные расширения и ряд слов для взаимодей¬ 
ствия с операционной системой, для работы с четырех¬ 
байтными машинными адресами, для разработки и от¬ 
ладки программ. Имеются отдельно загружаемые па¬ 
кеты для работы с числами в формате с плавающей 
точкой, для связи с файловой системой, для справочной 
подсистемы с диалоговым учебником по языку Форт. 
В реализации применен косвенный ш итый код. Встроен¬ 
ный структурный ассемблер разрешает использование 
меток. Текстовый редактор работает в режимах по¬ 
строчного и поэкранного редактирования. Система 
имеет отдельно загружаемый пакет целевой компиля¬ 
ции и средства для построения независимого программ¬ 
ного продукта 

Форт-Искра-226. Эта развитая операционная систе¬ 
ма на базе языка Форт [6] разработана в Институте 
социально-экономических проблем (ИСЭП) АН СССР. 
Используется с 1986 г. Включена в комплект заводской 
поставки ЭВМ «Искра-226». Объем — около 32 К байт 
(свыше 400 слов). Система базируется на стандарте 
"Фиг-форт", расширенном рядом слов в соответствии 
с ее функциональным назначением. Среди них встроен¬ 
ный диспетчер, средства для параллельного выполне¬ 
ния директив, работа с файлами и базами данных, 
работа с адресным пространством до 128 К байт. Важ¬ 
ным встроенным средством является программная реа¬ 
лизация элементарных математических функций и 
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операций для работы с плавающей точкой. В реализа¬ 
ции применен прямой шитый код. Встроенный экранный 
редактор имеет режим работы с окнами. 

Форг-МбООО. Система разработана В. Н. Патрыше- 
вым (Ленинград) для ЭВМ М6000 под управлением 
ДОС РВ, РТЕ-2 и для работы без операционной систе¬ 
мы. Используется с 1985 г. Ядро занимает 14 К байт 
(300 слов). Система ориентирована на стандарт 
«Форт-83». В реализации использован прямой шитый 
код. Имеются своя файловая система, средства для 
связи с операционной системой, строковый редактор, 
ориентированный на файловую систему. 

Форт-БЭСМ-6. Система разработана в Институте 
теоретической астрономии (ИТА) АН СССР И. Р. Ага¬ 
мирзяном для ЭВМ БЭСМ-6. Используется с 1984 г. 
Работает под управлением ОС ДИСПАК и имеет интер¬ 
фейс с файловой системой КРАБ. Общий объем — 
24 К байт (500 слов). По входному языку система ближе 
всего к стандарту «Фиг-форт», вместе с тем использует¬ 
ся ряд слов из стандарта «Форт-83». Сравнительно 
большой объем памяти связан с отсутствием в ЭВМ 
БЭСМ-6 байтовой адресации. Для представления стан¬ 
дартного двухбайтного значения используется шести¬ 
байтное машинное слово БЭСМ-6. По той же причине 
для работы с байтовыми значениями вместо слов С@, 
С! и других введен ряд специальных слов. Из-за 
особенностей системы команд в реализации применен 
подпрограммный ш итый код. Это позволяет включать 
ассемблерные вставки непосредственно в ш итый код 
и наоборот — высокоуровневые слова как обращения 
к подпрограммам внутрь ассемблерных определений. 
Прототипом для встроенного ассемблера является 
ассемблер МАДЛЕН БЭСМ-6. В качестве текстового 
редактора используется стандартный редактор опе¬ 
рационной системы. 

Форт-Эльбрус. Система разработана на математико¬ 
механическом факультете ЛГУ А. Е. Соловьевым для 
МВК «Эльбрус». Работает с 1986 г. под управлением 
ОС «Эльбрус». Ядро занимает 4,5 К байт (200 слов). 
Система ориентирована на стандарт «Форт-83», имеет 
ряд специальных инструментальных слов и средства 
для связи с процедурами на языке Эль-76. 
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Язык Форт появился в начале 
1970-х гг. в США. Быстрый рост 
его популярности приходится на 
середину 1970-х гг., когда по¬ 
явились персональные ЭВМ. 
Широкое распространение по¬ 
лучили коммерческие програм¬ 
мные продукты, написанные на 
языке Форт — системы обра¬ 
ботки текстов, пакеты машин¬ 
ной графики, трансляторы, ви¬ 
деоигры. В 1983 г. опублико¬ 
ван стандарт "Форт-83", в со¬ 
ответствии с которым строится 
изложение в данной книге. 

Система программирования на 
Форте (форт-система) обычно 
обеспечивает полный набор 
средств поддержки для разра¬ 
ботки и исполнения программ: 
операционную систему, интер¬ 
претатор для диалогового ис¬ 
полнения, компилятор, ассемб¬ 
лер, текстовый редактор и 
обслуживающие программы. 
Все эти компоненты являются 
расширениями Форта и напи¬ 
саны на том же Форте. 

Таким образом, Форт — это и 
система для пользователя и 
метасистема. В соответствии 
с этим принципом в форт-си- 
стеме используется минимум 
правил и накладывается ми¬ 
нимум ограничений, т. е. почти 
нет синтаксиса, жестко конт¬ 
ролируемых интерфейсов для 
взаимодей:твия модулей, за¬ 
крытых для пользователя обла¬ 
стей памяти, имеется лишь 
незначительный по объему 
встроенный контроль ошибок. 





